diff options
| author | Paolo Bonzini <bonzini@gnu.org> | 2008-04-03 05:41:57 +0000 |
|---|---|---|
| committer | Paolo Bonzini <bonzini@gcc.gnu.org> | 2008-04-03 05:41:57 +0000 |
| commit | 9ff420f135551a6d3582b986997ef78ac6762f56 (patch) | |
| tree | 452e7c06ff6f1f3a8357898f7dcdc5ae66011637 /gcc/ada/utils.c | |
| parent | d2784db4e5b1950ca24582e3dd716af7f5e04906 (diff) | |
| download | gcc-9ff420f135551a6d3582b986997ef78ac6762f56.zip gcc-9ff420f135551a6d3582b986997ef78ac6762f56.tar.gz gcc-9ff420f135551a6d3582b986997ef78ac6762f56.tar.bz2 | |
tree-inline.c (copy_generic_body, [...]): Export.
2007-03-09 Paolo Bonzini <bonzini@gnu.org>
* tree-inline.c (copy_generic_body, copy_decl_no_change): Export.
(remap_block): Call id->transform_lang_insert_block instead
of langhook.
(optimize_inline_calls, unsave_expr_now, tree_function_versioning):
Set id.transform_lang_insert_block to NULL.
(clone_body): Move to cp/optimize.c
* tree-inline.h (struct copy_body_data): Change
transform_lang_insert_block to function pointer.
(copy_generic_body, copy_decl_no_change): Export.
* langhooks.h (struct lang_hooks_for_decls): Kill insert_block.
* langhooks-def.h (LANG_HOOKS_INSERT_BLOCK): Kill.
(LANG_HOOKS_DECLS): Remove LANG_HOOKS_INSERT_BLOCK.
* c-tree.h (insert_block): Kill.
* c-decl.c (insert_block): Kill.
cp:
2007-03-09 Paolo Bonzini <bonzini@gnu.org>
* optimize.c (clone_body): New, from tree-inline.c.
ada:
2007-03-09 Paolo Bonzini <bonzini@gnu.org>
* gigi.h (insert_block): Kill.
* utils.c (insert_block): Kill.
java:
2007-03-09 Paolo Bonzini <bonzini@gnu.org>
* java-tree.h (insert_block): Kill.
* decl.c (insert_block): Kill.
fortran:
2007-03-09 Paolo Bonzini <bonzini@gnu.org>
* f95-lang.c (insert_block): Kill.
From-SVN: r133861
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 58f0b68..2cde34e 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -382,17 +382,6 @@ gnat_poplevel () free_binding_level = level; } -/* 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. */ - -void -insert_block (tree block) -{ - TREE_USED (block) = 1; - TREE_CHAIN (block) = BLOCK_SUBBLOCKS (current_binding_level->block); - BLOCK_SUBBLOCKS (current_binding_level->block) = block; -} /* Records a ..._DECL node DECL as belonging to the current lexical scope and uses GNAT_NODE for location information and propagating flags. */ |