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
This commit is contained in:
parent
1f8a9befe3
commit
69f9c1f69e
|
@ -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>
|
Fri Nov 7 11:57:28 1997 Jason Merrill <jason@yorick.cygnus.com>
|
||||||
|
|
||||||
* decl2.c (finish_file): Put back some code.
|
* decl2.c (finish_file): Put back some code.
|
||||||
|
|
|
@ -1398,16 +1398,6 @@ insert_block (block)
|
||||||
= chainon (current_binding_level->blocks, 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
|
/* Set the BLOCK node for the innermost scope
|
||||||
(the one we are currently in). */
|
(the one we are currently in). */
|
||||||
|
|
||||||
|
|
|
@ -2772,8 +2772,6 @@ build_vec_delete_1 (base, maxindex, type, auto_delete_vec, auto_delete,
|
||||||
DECL_REGISTER (tbase) = 1;
|
DECL_REGISTER (tbase) = 1;
|
||||||
controller = build (BIND_EXPR, void_type_node, tbase, NULL_TREE, NULL_TREE);
|
controller = build (BIND_EXPR, void_type_node, tbase, NULL_TREE, NULL_TREE);
|
||||||
TREE_SIDE_EFFECTS (controller) = 1;
|
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
|
if (auto_delete != integer_zero_node
|
||||||
&& auto_delete != integer_two_node)
|
&& auto_delete != integer_two_node)
|
||||||
|
|
Loading…
Reference in New Issue