decl.c (delete_block): Remove.

	* decl.c (delete_block): Remove.
	* cp-tree.h: Remove the corresponding prototype.

From-SVN: r93866

diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog
index 76e41b5e305061e9a81f1445dfc653562e9e1804..222a22cc66841fccf4868efba5418cf06127bcf7 100644 (file)
--- a/gcc/cp/ChangeLog
+++ b/gcc/cp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-18  Kazu Hirata  <kazu@cs.umass.edu>
+
+       * decl.c (delete_block): Remove.
+       * cp-tree.h: Remove the corresponding prototype.
+
 2005-01-18  Andrew Pinski  <pinskia@physics.uc.edu>
 
        PR c/19472

diff --git a/gcc/cp/cp-tree.h b/gcc/cp/cp-tree.h
index ffb76d535ed124f285a204903efab306d1a6ec65..6142e3686015eb25e5e49f52065bd5c7b374f8e4 100644 (file)
--- a/gcc/cp/cp-tree.h
+++ b/gcc/cp/cp-tree.h
@@ -3750,7 +3750,6 @@ extern void cxx_pop_function_context              (struct function *);
 extern void cxx_mark_function_context          (struct function *);
 extern void maybe_push_cleanup_level (tree);
 extern void finish_scope                        (void);
-extern void delete_block                       (tree);
 extern void add_block_current_level            (tree);
 extern void push_switch                                (tree);
 extern void pop_switch                         (void);

diff --git a/gcc/cp/decl.c b/gcc/cp/decl.c
index e664b1c6aff62895b718ced9fdbb025ee9ea2739..d72ecb9f2edbcaec7cdae5854e76ad83a336f683 100644 (file)
--- a/gcc/cp/decl.c
+++ b/gcc/cp/decl.c
@@ -742,29 +742,6 @@ poplevel (int keep, int reverse, int functionbody)
   POP_TIMEVAR_AND_RETURN (TV_NAME_LOOKUP, 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 (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_TREE;
-  /* 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.  */