diff options
Diffstat (limited to 'gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib')
3 files changed, 107 insertions, 0 deletions
diff --git a/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/lib.exp b/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/lib.exp new file mode 100644 index 000000000..f7b83d85e --- /dev/null +++ b/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/lib.exp @@ -0,0 +1,26 @@ +# Copyright (C) 2011 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; see the file COPYING3. If not see +# <http://www.gnu.org/licenses/>. + +dg-init +boehm-gc-init + +# Gather list of tests, skipping library source files. +set tests [lsort [glob -nocomplain $srcdir/$subdir/*.c]] +set tests [prune $tests $srcdir/$subdir/*lib.c] + +boehm-gc-dg-runtest $tests "-O2" "" + +dg-finish diff --git a/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/staticrootslib.c b/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/staticrootslib.c new file mode 100644 index 000000000..6e13278a6 --- /dev/null +++ b/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/staticrootslib.c @@ -0,0 +1,33 @@ +#include <stdio.h> + +#ifndef GC_DEBUG +# define GC_DEBUG +#endif + +#include "gc.h" + +struct treenode { + struct treenode *x; + struct treenode *y; +} * root[10]; + +struct treenode * libsrl_mktree(int i) +{ + struct treenode * r = GC_MALLOC(sizeof(struct treenode)); + if (0 == i) return 0; + if (1 == i) r = GC_MALLOC_ATOMIC(sizeof(struct treenode)); + r -> x = libsrl_mktree(i-1); + r -> y = libsrl_mktree(i-1); + return r; +} + +void * libsrl_init(void) +{ + GC_INIT(); + return GC_MALLOC(sizeof(struct treenode)); +} + +void * libsrl_collect (void) +{ + GC_gcollect(); +} diff --git a/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/staticrootstest.c b/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/staticrootstest.c new file mode 100644 index 000000000..a029ccf42 --- /dev/null +++ b/gcc-4.8.3/boehm-gc/testsuite/boehm-gc.lib/staticrootstest.c @@ -0,0 +1,48 @@ +/* { 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; +} |