summaryrefslogtreecommitdiff
path: root/boehm-gc/testsuite/boehm-gc.lib
diff options
context:
space:
mode:
Diffstat (limited to 'boehm-gc/testsuite/boehm-gc.lib')
-rw-r--r--boehm-gc/testsuite/boehm-gc.lib/lib.exp26
-rw-r--r--boehm-gc/testsuite/boehm-gc.lib/staticrootslib.c33
-rw-r--r--boehm-gc/testsuite/boehm-gc.lib/staticrootstest.c48
3 files changed, 0 insertions, 107 deletions
diff --git a/boehm-gc/testsuite/boehm-gc.lib/lib.exp b/boehm-gc/testsuite/boehm-gc.lib/lib.exp
deleted file mode 100644
index f7b83d85ed5..00000000000
--- a/boehm-gc/testsuite/boehm-gc.lib/lib.exp
+++ /dev/null
@@ -1,26 +0,0 @@
-# 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/boehm-gc/testsuite/boehm-gc.lib/staticrootslib.c b/boehm-gc/testsuite/boehm-gc.lib/staticrootslib.c
deleted file mode 100644
index 6e13278a6c0..00000000000
--- a/boehm-gc/testsuite/boehm-gc.lib/staticrootslib.c
+++ /dev/null
@@ -1,33 +0,0 @@
-#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/boehm-gc/testsuite/boehm-gc.lib/staticrootstest.c b/boehm-gc/testsuite/boehm-gc.lib/staticrootstest.c
deleted file mode 100644
index a029ccf4276..00000000000
--- a/boehm-gc/testsuite/boehm-gc.lib/staticrootstest.c
+++ /dev/null
@@ -1,48 +0,0 @@
-/* { 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;
-}