From 41f701ba9451ed054d81d4235aa19e05a116924c Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Thu, 26 Jul 2007 19:07:32 +0000 Subject: 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 --- gcc/java/decl.c | 35 ----------------------------------- 1 file changed, 35 deletions(-) (limited to 'gcc/java/decl.c') 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). -- cgit v1.1