1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-27 15:40:47 -08:00
emacs/mps/qa/argerr/107.c
Richard Tucker b6a5d5ca29 Add hopename
Copied from Perforce
 Change: 19336
 ServerID: perforce.ravenbrook.com
1998-02-23 16:12:09 +00:00

38 lines
627 B
C

/* $HopeName$
TEST_HEADER
summary = MIN-1 root mode for mps_root_create_table
language = c
link = testlib.o
END_HEADER
*/
#include "testlib.h"
#include "arg.h"
void *stackpointer;
static void test(void)
{
mps_space_t space;
mps_thr_t thread;
mps_root_t root;
mps_addr_t a[30];
cdie(mps_space_create(&space), "create space");
cdie(mps_thread_reg(&thread, space), "register thread");
cdie(mps_root_create_table(&root, space,
MPS_RANK_AMBIG, MPS_RM_MIN-1, a, sizeof a),
"root create");
}
int main(void)
{
void *m;
stackpointer=&m; /* hack to get stack pointer */
easy_tramp(test);
return 0;
}