1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-24 23:31:33 -07:00
emacs/mps/qa/argerr/87.c
Richard Tucker 366c53d907 New unit
'cos I said so

Copied from Perforce
 Change: 17520
 ServerID: perforce.ravenbrook.com
1997-04-17 17:28:12 +01:00

36 lines
544 B
C

/* test UNALIGNED space for is_stale
language c
link testlib.o
*/
#include "testlib.h"
#include "arg.h"
void *stackpointer;
static void test(void)
{
mps_space_t space;
mps_ld_s ld;
mps_thr_t thread;
mps_addr_t p;
cdie(mps_space_create(&space), "create space");
cdie(mps_thread_reg(&thread, space), "register thread");
mps_ld_reset(&ld, space);
mps_ld_add(&ld, space, &p);
mps_ld_isstale(&ld, UNALIGNED, &p);
}
int main(void)
{
void *m;
stackpointer=&m; /* hack to get stack pointer */
easy_tramp(test);
return 0;
}