From f09bbbedfb1ad34a0277b9866ecb33a0ad198730 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Martin=20v=2E=20L=C3=B6wis?= Date: Thu, 22 Oct 1998 14:52:02 +0000 Subject: [PATCH] parse.y (named_class_head): Push into class while parsing the base class list. * parse.y (named_class_head): Push into class while parsing the base class list. * decl2.c (push_scope, pop_scope): New functions. * tree.h: Declare them. From-SVN: r23224 --- gcc/cp/ChangeLog | 6 +++++- gcc/cp/cp-tree.h | 2 ++ gcc/cp/decl2.c | 24 ++++++++++++++++++++++++ gcc/cp/parse.y | 11 ++++++++--- 4 files changed, 39 insertions(+), 4 deletions(-) diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog index f2be60cb0c9..e614e723c25 100644 --- a/gcc/cp/ChangeLog +++ b/gcc/cp/ChangeLog @@ -1,5 +1,9 @@ -1998-10-22 Martin v. Löwis +1998-10-22 Martin von Löwis + * parse.y (named_class_head): Push into class while parsing the + base class list. + * decl2.c (push_scope, pop_scope): New functions. + * cp-tree.h: Declare them. * init.c (build_new_1): Delay cleanup until end of full expression. 1998-10-21 Jason Merrill diff --git a/gcc/cp/cp-tree.h b/gcc/cp/cp-tree.h index d4993275091..51c531bb558 100644 --- a/gcc/cp/cp-tree.h +++ b/gcc/cp/cp-tree.h @@ -2668,6 +2668,8 @@ extern void set_decl_namespace PROTO((tree, tree)); extern tree current_decl_namespace PROTO((void)); extern void push_decl_namespace PROTO((tree)); extern void pop_decl_namespace PROTO((void)); +extern void push_scope PROTO((tree)); +extern void pop_scope PROTO((tree)); extern void do_namespace_alias PROTO((tree, tree)); extern void do_toplevel_using_decl PROTO((tree)); extern void do_local_using_decl PROTO((tree)); diff --git a/gcc/cp/decl2.c b/gcc/cp/decl2.c index f0b3167ab27..302138ab2d2 100644 --- a/gcc/cp/decl2.c +++ b/gcc/cp/decl2.c @@ -4332,6 +4332,30 @@ check_decl_namespace () my_friendly_assert (decl_namespace_list == NULL_TREE, 980711); } +/* Enter a class or namespace scope. */ + +void +push_scope (t) + tree t; +{ + if (TREE_CODE (t) == NAMESPACE_DECL) + push_decl_namespace (t); + else + pushclass (t, 2); +} + +/* Leave scope pushed by push_scope. */ + +void +pop_scope (t) + tree t; +{ + if (TREE_CODE (t) == NAMESPACE_DECL) + pop_decl_namespace (); + else + popclass (1); +} + /* [basic.lookup.koenig] */ /* A non-zero return value in the functions below indicates an error. All nodes allocated in the procedure are on the scratch obstack. */ diff --git a/gcc/cp/parse.y b/gcc/cp/parse.y index d654f5a90cc..2aba4a5fea0 100644 --- a/gcc/cp/parse.y +++ b/gcc/cp/parse.y @@ -2235,14 +2235,19 @@ named_class_head: { $$ = xref_tag (current_aggr, $1, 1); } | named_class_head_sans_basetype_defn { $$ = xref_tag (current_aggr, $1, 0); } + /* Class name is unqualified, so we look for base classes + in the current scope. */ maybe_base_class_list %prec EMPTY { $$ = $2; if ($3) xref_basetypes (current_aggr, $1, $2, $3); } - | named_complex_class_head_sans_basetype maybe_base_class_list + | named_complex_class_head_sans_basetype + { push_scope (CP_DECL_CONTEXT ($1)); } + maybe_base_class_list { + pop_scope (CP_DECL_CONTEXT ($1)); $$ = TREE_TYPE ($1); if (TREE_INT_CST_LOW (current_aggr) == union_type && TREE_CODE ($$) != UNION_TYPE) @@ -2250,10 +2255,10 @@ named_class_head: else if (TREE_CODE ($$) == UNION_TYPE && TREE_INT_CST_LOW (current_aggr) != union_type) cp_pedwarn ("non-`union' tag used in declaring `%#T'", $$); - if ($2) + if ($3) { maybe_process_partial_specialization ($$); - xref_basetypes (current_aggr, $1, $$, $2); + xref_basetypes (current_aggr, $1, $$, $3); } } ; -- 2.30.2