diff options
| author | Zack Weinberg <zackw@stanford.edu> | 2001-02-20 05:49:06 +0000 |
|---|---|---|
| committer | Zack Weinberg <zack@gcc.gnu.org> | 2001-02-20 05:49:06 +0000 |
| commit | cd5a58e5925d0983a59dc98a4ab12224d4624559 (patch) | |
| tree | 51e806341a185dae0e1fc20ec036ecd1ec7fa9be /gcc/ggc-simple.c | |
| parent | 3d55d2f8dce48e3511a24887892f4a95fa607b45 (diff) | |
| download | gcc-cd5a58e5925d0983a59dc98a4ab12224d4624559.zip gcc-cd5a58e5925d0983a59dc98a4ab12224d4624559.tar.gz gcc-cd5a58e5925d0983a59dc98a4ab12224d4624559.tar.bz2 | |
sibcall.c (skip_copy_to_return_value): Call identify_call_return_value here, and return orig_insn if it returns zero.
* sibcall.c (skip_copy_to_return_value): Call
identify_call_return_value here, and return orig_insn if it
returns zero. Hardret and softret arguments now unnecessary.
(call_ends_block_p): Don't call identify_call_return_value here.
* ggc-common.c (ggc_mark_rtx_children): No need to mark 'S' or
's' slots in RTXen.
* ggc-page.c, ggc-simple.c (ggc_mark_if_gcable): Delete function.
* ggc.h (ggc_mark_if_gcable): Delete prototype.
testsuite:
* g77.dg: New directory.
* g77.dg/20010216-1.f: New test case.
* g77.dg/dg.exp: New driver.
* lib/g77-dg.exp: New driver library.
From-SVN: r39916
Diffstat (limited to 'gcc/ggc-simple.c')
| -rw-r--r-- | gcc/ggc-simple.c | 25 |
1 files changed, 1 insertions, 24 deletions
diff --git a/gcc/ggc-simple.c b/gcc/ggc-simple.c index b5cab1b..457b420 100644 --- a/gcc/ggc-simple.c +++ b/gcc/ggc-simple.c @@ -1,5 +1,5 @@ /* Simple garbage collection for the GNU compiler. - Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. This file is part of GNU CC. @@ -228,29 +228,6 @@ ggc_set_mark (p) return 0; } -/* Mark a node, but check first to see that it's really gc-able memory. */ - -void -ggc_mark_if_gcable (p) - const void *p; -{ - struct ggc_mem *x; - - if (p == NULL) - return; - - x = (struct ggc_mem *) ((const char *)p - offsetof (struct ggc_mem, u)); - if (! tree_lookup (x)) - return; - - if (x->mark) - return; - - x->mark = 1; - G.allocated += x->size; - G.objects += 1; -} - /* Return the size of the gc-able object P. */ size_t |