From e6ec164c8d2631e6dcb9f20e9ca0266d73633e37 Mon Sep 17 00:00:00 2001 From: Neil Booth Date: Mon, 5 Nov 2001 23:21:35 +0000 Subject: [PATCH] c-decl.c (delete_block): Remove. * c-decl.c (delete_block): Remove. * c-tree.h (delete_block): Remove. From-SVN: r46795 --- gcc/ChangeLog | 5 +++++ gcc/c-decl.c | 24 ------------------------ gcc/c-tree.h | 1 - 3 files changed, 5 insertions(+), 25 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index a1018aa46ed..798055d13f2 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2001-11-05 Neil Booth + + * c-decl.c (delete_block): Remove. + * c-tree.h (delete_block): Remove. + 2001-11-05 Neil Booth * cppexp.c (lex, parse_defined): Update warning about defined. diff --git a/gcc/c-decl.c b/gcc/c-decl.c index a907770c7b1..a8a974c81e9 100644 --- a/gcc/c-decl.c +++ b/gcc/c-decl.c @@ -1211,30 +1211,6 @@ poplevel (keep, reverse, functionbody) return block; } -/* Delete the node BLOCK from the current binding level. - This is used for the block inside a stmt expr ({...}) - so that the block can be reinserted where appropriate. */ - -void -delete_block (block) - tree block; -{ - tree t; - if (current_binding_level->blocks == block) - current_binding_level->blocks = TREE_CHAIN (block); - for (t = current_binding_level->blocks; t;) - { - if (TREE_CHAIN (t) == block) - TREE_CHAIN (t) = TREE_CHAIN (block); - else - t = TREE_CHAIN (t); - } - TREE_CHAIN (block) = NULL; - /* Clear TREE_USED which is always set by poplevel. - The flag is set again if insert_block is called. */ - TREE_USED (block) = 0; -} - /* Insert BLOCK at the end of the list of subblocks of the current binding level. This is used when a BIND_EXPR is expanded, to handle the BLOCK node inside the BIND_EXPR. */ diff --git a/gcc/c-tree.h b/gcc/c-tree.h index 09297a83661..91d98b74dff 100644 --- a/gcc/c-tree.h +++ b/gcc/c-tree.h @@ -177,7 +177,6 @@ extern int complete_array_type PARAMS ((tree, tree, int)); extern void declare_parm_level PARAMS ((int)); extern tree define_label PARAMS ((const char *, int, tree)); -extern void delete_block PARAMS ((tree)); extern void finish_decl PARAMS ((tree, tree, tree)); extern void finish_decl_top_level PARAMS ((tree, tree, tree)); extern tree finish_enum PARAMS ((tree, tree, tree)); -- 2.30.2