Commit 3dc9aec6 by Will Cohen Committed by William Cohen

Modification to define_label and finish_case_label in decl.c to handle

scoping correctly.

From-SVN: r38041
parent cbb40945
2000-12-05 Will Cohen <wcohen@redhat.com>
* decl.c (finish_case_label): Cleared
more_cleanups_ok in surrounding function scopes.
(define_label): Likewise.
2000-12-05 Nathan Sidwell <nathan@codesourcery.com>
* cp-tree.h (IDENTIFIER_VIRTUAL_P): Document.
......
......@@ -5068,14 +5068,16 @@ define_label (filename, line, name)
{
tree decl = lookup_label (name);
struct named_label_list *ent;
register struct binding_level *p;
for (ent = named_labels; ent; ent = ent->next)
if (ent->label_decl == decl)
break;
/* After labels, make any new cleanups go into their
/* After labels, make any new cleanups in the function go into their
own new (temporary) binding contour. */
current_binding_level->more_cleanups_ok = 0;
for (p = current_binding_level; !(p->parm_flag); p = p->level_chain)
p->more_cleanups_ok = 0;
if (name == get_identifier ("wchar_t"))
cp_pedwarn ("label named wchar_t");
......@@ -5161,6 +5163,7 @@ finish_case_label (low_value, high_value)
tree high_value;
{
tree cond;
register struct binding_level *p;
if (! switch_stack)
{
......@@ -5194,9 +5197,10 @@ finish_case_label (low_value, high_value)
check_switch_goto (switch_stack->level);
/* After labels, make any new cleanups go into their
/* After labels, make any new cleanups in the function go into their
own new (temporary) binding contour. */
current_binding_level->more_cleanups_ok = 0;
for (p = current_binding_level; !(p->parm_flag); p = p->level_chain)
p->more_cleanups_ok = 0;
current_function_return_value = NULL_TREE;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment