1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
emacs/mps/test/conerr/47.c
Gareth Rees c89ce2ba0b Get the mmqa conerr tests working:
* Make sure all the test build and run.
* Add output specifications to the passing tests.
* New testset/conerr runs them all.

Copied from Perforce
 Change: 187248
 ServerID: perforce.ravenbrook.com
2014-10-13 21:34:12 +01:00

44 lines
714 B
C

/*
TEST_HEADER
id = $Id$
summary = deregister thread without registering it first
language = c
link = myfmt.o testlib.o
OUTPUT_SPEC
abort = true
END_HEADER
*/
#include "testlib.h"
#include "mpscamc.h"
#include "myfmt.h"
void *stackpointer;
static void test(void)
{
mps_arena_t arena;
mps_thr_t thread = (mps_thr_t)1;
cdie(mps_arena_create(&arena, mps_arena_class_vm(), mmqaArenaSIZE), "create arena");
/*
cdie(mps_thread_reg(&thread, arena), "register thread");
*/
mps_thread_dereg(thread);
comment("Deregistered thread.");
mps_arena_destroy(arena);
comment("Destroyed arena.");
}
int main(void)
{
void *m;
stackpointer=&m; /* hack to get stack pointer */
easy_tramp(test);
return 0;
}