From: Jim Wilson <wilson@cygnus.com>
Date: Sun, 9 Nov 1997 08:30:34 +0000 (+0000)
Subject: decl.c (add_block_current_level): Delete.
X-Git-Tag: releases/libf2c-0.5.21~619
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=69f9c1f69e285e99979f61452634874744998481;p=thirdparty%2Fgcc.git

decl.c (add_block_current_level): Delete.

        * decl.c (add_block_current_level): Delete.
        * init.c (build_vec_delete_1): Delete build_block and
        add_block_current_level calls.

From-SVN: r16388
---

diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog
index a93380199177..d4eed7b8f496 100644
--- a/gcc/cp/ChangeLog
+++ b/gcc/cp/ChangeLog
@@ -1,3 +1,9 @@
+Sun Nov  9 01:29:55 1997  Jim Wilson  (wilson@cygnus.com)
+
+	* decl.c (add_block_current_level): Delete.
+	* init.c (build_vec_delete_1): Delete build_block and
+	add_block_current_level calls.
+
 Fri Nov  7 11:57:28 1997  Jason Merrill  <jason@yorick.cygnus.com>
 
 	* decl2.c (finish_file): Put back some code.
diff --git a/gcc/cp/decl.c b/gcc/cp/decl.c
index 77f5fd506101..667f1859b384 100644
--- a/gcc/cp/decl.c
+++ b/gcc/cp/decl.c
@@ -1398,16 +1398,6 @@ insert_block (block)
     = chainon (current_binding_level->blocks, block);
 }
 
-/* Add BLOCK to the current list of blocks for this binding contour.  */
-
-void
-add_block_current_level (block)
-     tree block;
-{
-  current_binding_level->blocks
-    = chainon (current_binding_level->blocks, block);
-}
-
 /* Set the BLOCK node for the innermost scope
    (the one we are currently in).  */
 
diff --git a/gcc/cp/init.c b/gcc/cp/init.c
index 7332c7bb8f9b..1ae838cc2734 100644
--- a/gcc/cp/init.c
+++ b/gcc/cp/init.c
@@ -2772,8 +2772,6 @@ build_vec_delete_1 (base, maxindex, type, auto_delete_vec, auto_delete,
   DECL_REGISTER (tbase) = 1;
   controller = build (BIND_EXPR, void_type_node, tbase, NULL_TREE, NULL_TREE);
   TREE_SIDE_EFFECTS (controller) = 1;
-  block = build_block (tbase, NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE);
-  add_block_current_level (block);
 
   if (auto_delete != integer_zero_node
       && auto_delete != integer_two_node)