1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 08:31:35 -08:00
emacs/mps/test/argerr/124.c
Gareth Rees 6367f5c299 Get the mmqa argerr tests working:
* Make sure all the test build and run.
* Add output specifications to the passing tests.
* New testset/argerr runs them all.

Copied from Perforce
 Change: 187245
 ServerID: perforce.ravenbrook.com
2014-10-13 18:35:11 +01:00

49 lines
939 B
C

/*
TEST_HEADER
id = $Id$
summary = highbit set root mode for mps_root_create_fmt
language = c
link = testlib.o
OUTPUT_SPEC
assert = true
assertfile P= root.c
assertcond = (mode & (RootModeCONSTANT | RootModePROTECTABLE | RootModePROTECTABLE_INNER)) == mode
END_HEADER
*/
#include "testlib.h"
#include "arg.h"
void *stackpointer;
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)
{
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_ambig(), HIGHBIT_INT,
fmtscan, a, &a[32]),
"root create");
}
int main(void)
{
void *m;
stackpointer=&m; /* hack to get stack pointer */
easy_tramp(test);
return 0;
}