1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
emacs/mps/test/argerr/120.c
Helmut Eller 777972ca95 Fix tests involving RankLIMIT
Use mps_rank_weak() + 1 instead of a hardcoded 4 for the smallest
non-valid argument.

* mps/test/argerr/95.c (test):
* mps/test/argerr/120.c (test):
2026-03-06 09:25:44 +01:00

44 lines
781 B
C

/*
TEST_HEADER
id = $Id$
summary = MAX+1 rank for mps_root_create_fmt
language = c
link = testlib.o
OUTPUT_SPEC
assert = true
assertfile P= ref.c
assertcond = rank < RankLIMIT
END_HEADER
*/
#include "testlib.h"
#include "arg.h"
static mps_res_t fmtscan(mps_ss_t ss,
mps_addr_t base, mps_addr_t limit)
{
return MPS_RES_OK;
}
static void test(void *stack_pointer)
{
mps_arena_t arena;
mps_thr_t thread;
mps_addr_t a[32];
mps_root_t root;
cdie(mps_arena_create(&arena, mps_arena_class_vm(), mmqaArenaSIZE), "create arena");
cdie(mps_thread_reg(&thread, arena), "register thread");
cdie(mps_root_create_fmt(&root, arena, mps_rank_weak() + 1, 0,
fmtscan, a, &a[32]),
"root create");
}
int main(void)
{
run_test(test);
return 0;
}