diff options
author | Tom Tromey <tromey@redhat.com> | 2007-07-26 19:07:32 +0000 |
---|---|---|
committer | Tom Tromey <tromey@gcc.gnu.org> | 2007-07-26 19:07:32 +0000 |
commit | 41f701ba9451ed054d81d4235aa19e05a116924c (patch) | |
tree | 825383d140588a6133ad9e64f3dc43cf6e5e304c /gcc/java/decl.c | |
parent | 8fee41c2fecbc35041abd164b869ff6a4b92b318 (diff) | |
download | gcc-41f701ba9451ed054d81d4235aa19e05a116924c.zip gcc-41f701ba9451ed054d81d4235aa19e05a116924c.tar.gz gcc-41f701ba9451ed054d81d4235aa19e05a116924c.tar.bz2 |
java-tree.h (push_labeled_block, [...]): Remove.
* java-tree.h (push_labeled_block, pop_labeled_block): Remove.
(LABELED_BLOCK_LABEL, LABELED_BLOCK_BODY,
EXIT_BLOCK_LABELED_BLOCK): Likewise.
* lang.c (java_tree_inlining_walk_subtrees): Update.
(java_dump_tree): Likewise.
* java-tree.def (LABELED_BLOCK_EXPR, EXIT_BLOCK_EXPR, TRY_EXPR):
Remove.
* decl.c (push_labeled_block, pop_labeled_block): Remove.
* java-gimplify.c (java_gimplify_labeled_block_expr,
java_gimplify_exit_block_expr, java_gimplify_try_expr): Remove.
(java_gimplify_expr): Update.
From-SVN: r126962
Diffstat (limited to 'gcc/java/decl.c')
-rw-r--r-- | gcc/java/decl.c | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/gcc/java/decl.c b/gcc/java/decl.c index e38c4bc..8822c9eb 100644 --- a/gcc/java/decl.c +++ b/gcc/java/decl.c @@ -1126,41 +1126,6 @@ lookup_name_current_level (tree name) return t; } -/* Use a binding level to record a labeled block declaration */ - -void -push_labeled_block (tree lb) -{ - tree name = DECL_NAME (LABELED_BLOCK_LABEL (lb)); - struct binding_level *b = current_binding_level; - tree oldlocal = IDENTIFIER_LOCAL_VALUE (name); - if (oldlocal != 0) - b->shadowed = tree_cons (name, oldlocal, b->shadowed); - TREE_CHAIN (lb) = b->names; - b->names = lb; - IDENTIFIER_LOCAL_VALUE (name) = lb; -} - -/* Pop the current binding level, reinstalling values for the previous - labeled block */ - -void -pop_labeled_block (void) -{ - struct binding_level *b = current_binding_level; - tree label = b->names; - IDENTIFIER_LOCAL_VALUE (DECL_NAME (LABELED_BLOCK_LABEL (label))) = - NULL_TREE; - if (b->shadowed) - IDENTIFIER_LOCAL_VALUE (TREE_PURPOSE (b->shadowed)) = - TREE_VALUE (b->shadowed); - - /* Pop the current level, and free the structure for reuse. */ - current_binding_level = current_binding_level->level_chain; - b->level_chain = free_binding_level; - free_binding_level = b; -} - /* Record a decl-node X as belonging to the current lexical scope. Check for errors (such as an incompatible declaration for the same name already seen in the same scope). |