c-decl.c (delete_block): Remove.

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

From-SVN: r46795

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index a1018aa46edc815273d51ada43f3d17c4297daf2..798055d13f24461255d95e612508e2c16b296da3 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/c-decl.c b/gcc/c-decl.c
index a907770c7b13d21a8dde8aaa82b661dde7dee3b4..a8a974c81e95bbc8a5ff995f283bb63eee54f512 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 09297a83661b8066689d812f6e25f34ae017e56a..91d98b74dff850941092084804492b64ebf3e970 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));