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

gcc/cp/ChangeLog

+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.

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

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)