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: r16387

diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog
index f2825d72eafc49e460839f11f7fbfef912a2397c..83eea91030e308fd8bcf517650a68455341c440b 100644 (file)
--- 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.
+
 Thu Nov  6 11:28:14 1997  Jason Merrill  <jason@yorick.cygnus.com>
 
        * method.c (emit_thunk): Don't let the backend defer generic thunks.

diff --git a/gcc/cp/decl.c b/gcc/cp/decl.c
index ca21b486f8dc876eeb669084ef122eb1ba7afe1b..54e79dd3d52c3d14bb8fcb6eb019e7c5e6e32e05 100644 (file)
--- 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 7332c7bb8f9b710c4607cc68897453ff99663fa8..1ae838cc273455776bfef9806503bb26a103b69e 100644 (file)
--- 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)