1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-13 23:10:26 -08:00
emacs/mps/qa/misc/2.c
Richard Tucker 7abbe3ea8c New unit
new test

Copied from Perforce
 Change: 20307
 ServerID: perforce.ravenbrook.com
1998-10-29 12:50:57 +00:00

40 lines
515 B
C

/*
TEST_HEADER
id = $HopeName$
summary = access negative location.
language = c
link = testlib.o
parameters = NUM=1
OUTPUT_SPEC
memoryerror = true
END_HEADER
*/
#include "testlib.h"
#include "mpsavm.h"
void *stackpointer;
static void test(void)
{
mps_arena_t arena;
char *p;
cdie(mps_arena_create(&arena, mps_arena_class_vm(), 64*1024uL*1024uL),
"create arena");
p = (char *)-NUM;
*p = 0;
comment("%p", *p);
}
int main(void)
{
void *m;
stackpointer=&m;
easy_tramp(test);
return 0;
}