* c-decl.c (delete_block): Remove.

	* c-tree.h (delete_block): Remove.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46795 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index a1018aa..798055d 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,10 @@
 2001-11-05  Neil Booth  <neil@cat.daikokuya.demon.co.uk>
 
+       * c-decl.c (delete_block): Remove.
+       * c-tree.h (delete_block): Remove.
+
+2001-11-05  Neil Booth  <neil@cat.daikokuya.demon.co.uk>
+
        * cppexp.c (lex, parse_defined): Update warning about defined.
 
 2001-11-05  Geoffrey Keating  <geoffk@redhat.com>

diff --git a/gcc/c-decl.c b/gcc/c-decl.c
index a907770..a8a974c 100644 (file)
--- 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 09297a8..91d98b7 100644 (file)
--- 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));