* decl.c (delete_block): Remove.

	* cp-tree.h: Remove the corresponding prototype.


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

1 files changed, 0 insertions, 23 deletions

diff --git a/gcc/cp/decl.c b/gcc/cp/decl.c
index e664b1c6aff..d72ecb9f2ed 100644
--- 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.  */