c-decl.c (delete_block): Remove.

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

From-SVN: r46795

gcc/ChangeLog

 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>

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.  */

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));