URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [boehm-gc/] [testsuite/] [boehm-gc.lib/] [staticrootstest.c] - Rev 724
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-add-shlib "staticrootslib.c" } */ #include <stdio.h> #ifndef GC_DEBUG # define GC_DEBUG #endif #include "gc.h" #include "gc_backptr.h" struct treenode { struct treenode *x; struct treenode *y; } * root[10]; static char *staticroot = 0; extern struct treenode * libsrl_mktree(int i); extern void * libsrl_init(void); extern void * libsrl_collect (void); int main(void) { int i; staticroot = libsrl_init(); for (i = 0; i < sizeof(struct treenode); ++i) { staticroot[i] = 0x42; } libsrl_collect(); for (i = 0; i < 10; ++i) { root[i] = libsrl_mktree(12); libsrl_collect(); } for (i = 0; i < sizeof(struct treenode); ++i) { if (staticroot[i] != 0x42) return -1; } for (i = 0; i < 10; ++i) { root[i] = libsrl_mktree(12); libsrl_collect(); } for (i = 0; i < sizeof(struct treenode); ++i) { if (staticroot[i] != 0x42) return -1; } return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log