OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Make DECL_CONTEXT mean the class in which a member function was declared, even for a virtual function. 

Make DECL_CONTEXT mean the class in which a member function was
	declared, even for a virtual function.
	* cp-tree.h (DECL_CLASS_CONTEXT): Adjust.
	(DECL_FRIEND_CONTEXT): New macro.
	(DECL_REAL_CONTEXT): Remove.
	(SET_DECL_FRIEND_CONTEXT): Likewise.
	(DECL_VIRTUAL_CONTEXT): Adjust.
	(DECL_CLASS_SCOPE_P): Use TYPE_P.
	(add_friends): Remove.
	(hack_decl_function_context): Likewise.
	* call.c (build_new_function_call): Replace DECL_REAL_CONTEXT with
	CP_DECL_CONTEXT.
	(build_over_call): Fix indentation.  Use DECL_CONTEXT
	instead of DECL_CLASS_CONTEXT.
	* class.c (dfs_build_vcall_offset_vtbl_entries): Likewise.
	(add_method): Set DECL_VIRTUAL_CONTEXT, not DECL_CLASS_CONTEXT.
	(strictly_overrides): Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
	(build_vtbl_or_vbase_field): Don't set DECL_CLASS_CONTEXT.
	(build_base_field): Likewise.
	(finish_struct_1): Likewise.
	(build_self_reference): Likewise.
	* decl.c (push_class_binding): Use CP_DECL_CONTEXT, not
	DECL_REAL_CONTEXT.
	(pushtag): Use decl_function_context, not
	hack_decl_function_context.
	(decls_match): Use CP_DECL_CONTEXT, not DECL_REAL_CONTEXT.
	(duplicate_decls): Use DECL_VIRTUAL_CONTEXT.
	(pushdecl): Remove bogus code.
	(start_decl): Use DECL_CONTEXT rather than DECL_CLASS_CONTEXT.
	(cp_finish_decl): Use CP_DECL_CONTEXT, not DECL_REAL_CONTEXT.
	(grokfndecl): Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
	Use decl_function_context, nothack_decl_function_context.
	(grokvardecl): Don't set DECL_CLASS_CONTEXT.
	(grokdeclarator): Likewise.  Use decl_function_context, not
	hack_decl_function_context.
	(copy_args_p): Document.  Don't use DECL_CLASS_CONTEXT.
	(start_function): Use DECL_FRIEND_CONTEXT, not
	DECL_CLASS_CONTEXT.  Use decl_function_context, not
	hack_decl_function_context.
	(finish_function): Use decl_function_context, not
	hack_decl_function_context.
	(maybe_retrofit_in_chrg): Use DECL_CONTEXT, not
	DECL_CLASS_CONTEXT.
	(grokclassfn): Set DECL_VIRTUAL_CONTEXT, not DECL_CONTEXT.
	(finish_static_data_member_decl): Don't set DECL_CLASS_CONTEXT.
	(grokfield): Likewise.
	(finish_builtin_type): Likewise.
	(finish_vtable_vardec): Use decl_function_context, not
	hack_decl_function_context.
	(import_export_decl): Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
	(start_static_initialization_or_destruction): Likewise.
	(finish_static_initialization_or_destruction): Likewise.
	(mark_used): Adjust logic for deciding when to synthesize methods.
	* dump.c (dequeue_and_dump): Use CP_DECL_CONTEXT, not
	DECL_REAL_CONTEXT.
	* error.c (dump_function_decl): Use DECL_CONTEXT, not
	DECL_CLASS_CONTEXT.
	* friend.c (is_friend): Likewise.
	(add_friends): Remove.
	(do_friend): Use SET_DECL_FRIEND_CONTEXT.
	* lex.c (begin_definition_of_inclass_inline): Use
	decl_function_context, not hack_decl_function_context.
	(process_next_inline): Likewise.
	(do_identifier): Use CP_DECL_CONTEXT, not DECL_REAL_CONTEXT.
	* method.c (set_mangled_name_for_decl): Use DECL_CONTEXT, not
	DECL_CLASSS_CONTEXT.
	(hack_identifier): Likewise.
	(synthesize_method):  Use decl_function_context, not
	hack_decl_function_context.
	* pt.c (template_class_depth_real): Use CP_DECL_CONTEXT, not
	DECL_REAL_CONTEXT.
	(is_member_template): Use decl_function_context, not
	hack_decl_function_context.  Use DECL_CONTEXT, not
	DECL_CLASS_CONTEXT.
	(build_template_decl): Set DECL_VIRTUAL_CONTEXT, not
	DECL_CLASS_CONTEXT.
	(check_default_tmpl_args): Use CP_DECL_CONTEXT, not
	DECL_REAL_CONTEXT.
	(push_template_decl_real): Likewise.
	(instantiate_class_template): Don't call add_friends.
	(tsubst_default_argument): Use DECL_CONTEXT, not
	DECL_REAL_CONTEXT.
	(tsubst_decl): Set DECL_VIRTUAL_CONTEXT, not DECL_CLASS_CONTEXT.
	Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
	(set_meangled_name_for_template_decl): Use DECL_CONTEXT, not
	DECL_CLASS_CONTEXT.
	* repo.c (repo_inline_used): Likewise.
	* search.c (current_scope): Adjust for new _CONTEXT macros.
	(context_for_name_lookup): Use CP_DECL_CONTEXT, not
	DECL_REAL_CONTEXT.
	(friend_accessible_p): Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
	(lookup_fnfields_here):Likewise.
	(check_final_overrider): Likewise.
	(init_vbase_pointers): Likewise.
	(virtual_context): Likewise.
	* semantics.c (finish_member_declaration): Just set DECL_CONTEXT.
	(expand_body): Use decl_function_context, not
	hack_decl_function_context.
	* tree.c (hack_decl_function_context): Remove.
	* typeck.c (build_x_function_call): Use DECL_CONTEXT, not
	DECL_CLASS_CONTEXT.
	* typeck2.c (error_not_base_type): Likewise.

From-SVN: r32018
This commit is contained in:
Mark Mitchell 2000-02-16 23:54:23 +00:00 committed by Mark Mitchell
parent 1adbc4d8be
commit 4f1c5b7dbf
18 changed files with 245 additions and 206 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
gcc/cp/ChangeLog
View File

@ -1,3 +1,108 @@
2000-02-16 Mark Mitchell <mark@codesourcery.com>
Make DECL_CONTEXT mean the class in which a member function was
declared, even for a virtual function.
* cp-tree.h (DECL_CLASS_CONTEXT): Adjust.
(DECL_FRIEND_CONTEXT): New macro.
(DECL_REAL_CONTEXT): Remove.
(SET_DECL_FRIEND_CONTEXT): Likewise.
(DECL_VIRTUAL_CONTEXT): Adjust.
(DECL_CLASS_SCOPE_P): Use TYPE_P.
(add_friends): Remove.
(hack_decl_function_context): Likewise.
* call.c (build_new_function_call): Replace DECL_REAL_CONTEXT with
CP_DECL_CONTEXT.
(build_over_call): Fix indentation. Use DECL_CONTEXT
instead of DECL_CLASS_CONTEXT.
* class.c (dfs_build_vcall_offset_vtbl_entries): Likewise.
(add_method): Set DECL_VIRTUAL_CONTEXT, not DECL_CLASS_CONTEXT.
(strictly_overrides): Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
(build_vtbl_or_vbase_field): Don't set DECL_CLASS_CONTEXT.
(build_base_field): Likewise.
(finish_struct_1): Likewise.
(build_self_reference): Likewise.
* decl.c (push_class_binding): Use CP_DECL_CONTEXT, not
DECL_REAL_CONTEXT.
(pushtag): Use decl_function_context, not
hack_decl_function_context.
(decls_match): Use CP_DECL_CONTEXT, not DECL_REAL_CONTEXT.
(duplicate_decls): Use DECL_VIRTUAL_CONTEXT.
(pushdecl): Remove bogus code.
(start_decl): Use DECL_CONTEXT rather than DECL_CLASS_CONTEXT.
(cp_finish_decl): Use CP_DECL_CONTEXT, not DECL_REAL_CONTEXT.
(grokfndecl): Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
Use decl_function_context, nothack_decl_function_context.
(grokvardecl): Don't set DECL_CLASS_CONTEXT.
(grokdeclarator): Likewise. Use decl_function_context, not
hack_decl_function_context.
(copy_args_p): Document. Don't use DECL_CLASS_CONTEXT.
(start_function): Use DECL_FRIEND_CONTEXT, not
DECL_CLASS_CONTEXT. Use decl_function_context, not
hack_decl_function_context.
(finish_function): Use decl_function_context, not
hack_decl_function_context.
(maybe_retrofit_in_chrg): Use DECL_CONTEXT, not
DECL_CLASS_CONTEXT.
(grokclassfn): Set DECL_VIRTUAL_CONTEXT, not DECL_CONTEXT.
(finish_static_data_member_decl): Don't set DECL_CLASS_CONTEXT.
(grokfield): Likewise.
(finish_builtin_type): Likewise.
(finish_vtable_vardec): Use decl_function_context, not
hack_decl_function_context.
(import_export_decl): Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
(start_static_initialization_or_destruction): Likewise.
(finish_static_initialization_or_destruction): Likewise.
(mark_used): Adjust logic for deciding when to synthesize methods.
* dump.c (dequeue_and_dump): Use CP_DECL_CONTEXT, not
DECL_REAL_CONTEXT.
* error.c (dump_function_decl): Use DECL_CONTEXT, not
DECL_CLASS_CONTEXT.
* friend.c (is_friend): Likewise.
(add_friends): Remove.
(do_friend): Use SET_DECL_FRIEND_CONTEXT.
* lex.c (begin_definition_of_inclass_inline): Use
decl_function_context, not hack_decl_function_context.
(process_next_inline): Likewise.
(do_identifier): Use CP_DECL_CONTEXT, not DECL_REAL_CONTEXT.
* method.c (set_mangled_name_for_decl): Use DECL_CONTEXT, not
DECL_CLASSS_CONTEXT.
(hack_identifier): Likewise.
(synthesize_method): Use decl_function_context, not
hack_decl_function_context.
* pt.c (template_class_depth_real): Use CP_DECL_CONTEXT, not
DECL_REAL_CONTEXT.
(is_member_template): Use decl_function_context, not
hack_decl_function_context. Use DECL_CONTEXT, not
DECL_CLASS_CONTEXT.
(build_template_decl): Set DECL_VIRTUAL_CONTEXT, not
DECL_CLASS_CONTEXT.
(check_default_tmpl_args): Use CP_DECL_CONTEXT, not
DECL_REAL_CONTEXT.
(push_template_decl_real): Likewise.
(instantiate_class_template): Don't call add_friends.
(tsubst_default_argument): Use DECL_CONTEXT, not
DECL_REAL_CONTEXT.
(tsubst_decl): Set DECL_VIRTUAL_CONTEXT, not DECL_CLASS_CONTEXT.
Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
(set_meangled_name_for_template_decl): Use DECL_CONTEXT, not
DECL_CLASS_CONTEXT.
* repo.c (repo_inline_used): Likewise.
* search.c (current_scope): Adjust for new _CONTEXT macros.
(context_for_name_lookup): Use CP_DECL_CONTEXT, not
DECL_REAL_CONTEXT.
(friend_accessible_p): Use DECL_CONTEXT, not DECL_CLASS_CONTEXT.
(lookup_fnfields_here):Likewise.
(check_final_overrider): Likewise.
(init_vbase_pointers): Likewise.
(virtual_context): Likewise.
* semantics.c (finish_member_declaration): Just set DECL_CONTEXT.
(expand_body): Use decl_function_context, not
hack_decl_function_context.
* tree.c (hack_decl_function_context): Remove.
* typeck.c (build_x_function_call): Use DECL_CONTEXT, not
DECL_CLASS_CONTEXT.
* typeck2.c (error_not_base_type): Likewise.
2000-02-15 Jason Merrill <jason@casey.cygnus.com> 2000-02-15 Jason Merrill <jason@casey.cygnus.com>
* decl.c (xref_tag): Don't SET_IDENTIFIER_NAMESPACE_VALUE. * decl.c (xref_tag): Don't SET_IDENTIFIER_NAMESPACE_VALUE.

6
gcc/cp/call.c
View File

@ -2504,7 +2504,7 @@ build_new_function_call (fn, args)
(candidates, t, args, LOOKUP_NORMAL); (candidates, t, args, LOOKUP_NORMAL);
if (candidates != old_candidates) if (candidates != old_candidates)
candidates->basetype_path = DECL_REAL_CONTEXT (t); candidates->basetype_path = CP_DECL_CONTEXT (t);
} }
if (! any_viable (candidates)) if (! any_viable (candidates))
@ -4098,7 +4098,7 @@ build_over_call (cand, args, flags)
and we will call a destructor for it, which is wrong, and we will call a destructor for it, which is wrong,
because we will also destroy TO, but will never have because we will also destroy TO, but will never have
constructed it. */ constructed it. */
val = build (is_empty_class (DECL_CLASS_CONTEXT (fn)) val = build (is_empty_class (DECL_CONTEXT (fn))
? MODIFY_EXPR : INIT_EXPR, ? MODIFY_EXPR : INIT_EXPR,
DECL_CONTEXT (fn), to, arg); DECL_CONTEXT (fn), to, arg);
address = build_unary_op (ADDR_EXPR, val, 0); address = build_unary_op (ADDR_EXPR, val, 0);
@ -4110,7 +4110,7 @@ build_over_call (cand, args, flags)
} }
else if (DECL_NAME (fn) == ansi_opname[MODIFY_EXPR] else if (DECL_NAME (fn) == ansi_opname[MODIFY_EXPR]
&& copy_args_p (fn) && copy_args_p (fn)
&& TYPE_HAS_TRIVIAL_ASSIGN_REF (DECL_CLASS_CONTEXT (fn))) && TYPE_HAS_TRIVIAL_ASSIGN_REF (DECL_CONTEXT (fn)))
{ {
tree to = stabilize_reference tree to = stabilize_reference
(build_indirect_ref (TREE_VALUE (converted_args), 0)); (build_indirect_ref (TREE_VALUE (converted_args), 0));

17
gcc/cp/class.c
View File

@ -409,7 +409,7 @@ dfs_build_vcall_offset_vtbl_entries (binfo, data)
/* Figure out what function we're looking at. */ /* Figure out what function we're looking at. */
fn = TREE_VALUE (virtuals); fn = TREE_VALUE (virtuals);
base = DECL_CLASS_CONTEXT (fn); base = DECL_CONTEXT (fn);
/* The FN is comes from BASE. So, we must caculate the /* The FN is comes from BASE. So, we must caculate the
adjustment from the virtual base that derived from BINFO to adjustment from the virtual base that derived from BINFO to
@ -1428,10 +1428,10 @@ void
add_method (type, fields, method) add_method (type, fields, method)
tree type, *fields, method; tree type, *fields, method;
{ {
/* Setting the DECL_CONTEXT and DECL_CLASS_CONTEXT here is probably /* Setting the DECL_CONTEXT and DECL_VIRTUAL_CONTEXT
redundant. */ here is probably redundant. */
DECL_CONTEXT (method) = type; DECL_CONTEXT (method) = type;
DECL_CLASS_CONTEXT (method) = type; DECL_VIRTUAL_CONTEXT (method) = type;
if (fields && *fields) if (fields && *fields)
*fields = build_overload (method, *fields); *fields = build_overload (method, *fields);
@ -3153,8 +3153,8 @@ static int
strictly_overrides (fndecl1, fndecl2) strictly_overrides (fndecl1, fndecl2)
tree fndecl1, fndecl2; tree fndecl1, fndecl2;
{ {
int distance = get_base_distance (DECL_CLASS_CONTEXT (fndecl2), int distance = get_base_distance (DECL_CONTEXT (fndecl2),
DECL_CLASS_CONTEXT (fndecl1), DECL_CONTEXT (fndecl1),
0, (tree *)0); 0, (tree *)0);
if (distance == -2 || distance > 0) if (distance == -2 || distance > 0)
return 1; return 1;
@ -4003,7 +4003,6 @@ build_vtbl_or_vbase_field (name, assembler_name, type, class_type, fcontext,
DECL_VIRTUAL_P (field) = 1; DECL_VIRTUAL_P (field) = 1;
DECL_ARTIFICIAL (field) = 1; DECL_ARTIFICIAL (field) = 1;
DECL_FIELD_CONTEXT (field) = class_type; DECL_FIELD_CONTEXT (field) = class_type;
DECL_CLASS_CONTEXT (field) = class_type;
DECL_FCONTEXT (field) = fcontext; DECL_FCONTEXT (field) = fcontext;
DECL_SAVED_INSNS (field) = 0; DECL_SAVED_INSNS (field) = 0;
DECL_FIELD_SIZE (field) = 0; DECL_FIELD_SIZE (field) = 0;
@ -4063,7 +4062,7 @@ build_base_field (t, binfo, empty_p, saw_empty_p, base_align)
decl = build_lang_decl (FIELD_DECL, NULL_TREE, basetype); decl = build_lang_decl (FIELD_DECL, NULL_TREE, basetype);
DECL_ARTIFICIAL (decl) = 1; DECL_ARTIFICIAL (decl) = 1;
DECL_FIELD_CONTEXT (decl) = DECL_CLASS_CONTEXT (decl) = t; DECL_FIELD_CONTEXT (decl) = t;
DECL_SIZE (decl) = CLASSTYPE_SIZE (basetype); DECL_SIZE (decl) = CLASSTYPE_SIZE (basetype);
DECL_ALIGN (decl) = CLASSTYPE_ALIGN (basetype); DECL_ALIGN (decl) = CLASSTYPE_ALIGN (basetype);
@ -4936,7 +4935,6 @@ finish_struct_1 (t)
if (! integer_zerop (offset)) if (! integer_zerop (offset))
offset = size_binop (MULT_EXPR, offset, size_int (BITS_PER_UNIT)); offset = size_binop (MULT_EXPR, offset, size_int (BITS_PER_UNIT));
DECL_FIELD_CONTEXT (vfield) = t; DECL_FIELD_CONTEXT (vfield) = t;
DECL_CLASS_CONTEXT (vfield) = t;
DECL_FIELD_BITPOS (vfield) DECL_FIELD_BITPOS (vfield)
= size_binop (PLUS_EXPR, offset, DECL_FIELD_BITPOS (vfield)); = size_binop (PLUS_EXPR, offset, DECL_FIELD_BITPOS (vfield));
TYPE_VFIELD (t) = vfield; TYPE_VFIELD (t) = vfield;
@ -6195,7 +6193,6 @@ build_self_reference ()
DECL_NONLOCAL (value) = 1; DECL_NONLOCAL (value) = 1;
DECL_CONTEXT (value) = current_class_type; DECL_CONTEXT (value) = current_class_type;
DECL_CLASS_CONTEXT (value) = current_class_type;
DECL_ARTIFICIAL (value) = 1; DECL_ARTIFICIAL (value) = 1;
if (processing_template_decl) if (processing_template_decl)

32
gcc/cp/cp-tree.h
View File

@ -1984,12 +1984,24 @@ struct lang_decl
(DECL_LANG_SPECIFIC(NODE)->decl_flags.pretty_function_p) (DECL_LANG_SPECIFIC(NODE)->decl_flags.pretty_function_p)
/* The _TYPE context in which this _DECL appears. This field holds the /* The _TYPE context in which this _DECL appears. This field holds the
class where a virtual function instance is actually defined, and the class where a virtual function instance is actually defined. */
lexical scope of a friend function defined in a class body. */ #define DECL_CLASS_CONTEXT(NODE) \
#define DECL_CLASS_CONTEXT(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.context) (DECL_CLASS_SCOPE_P (NODE) ? DECL_CONTEXT (NODE) : NULL_TREE)
#define DECL_REAL_CONTEXT(NODE) \
((TREE_CODE (NODE) == FUNCTION_DECL && DECL_FUNCTION_MEMBER_P (NODE)) \ /* For a non-member friend function, the class (if any) in which this
? DECL_CLASS_CONTEXT (NODE) : CP_DECL_CONTEXT (NODE)) friend was defined. For example, given:
struct S { friend void f (); };
the DECL_FRIEND_CONTEXT for `f' will be `S'. */
#define DECL_FRIEND_CONTEXT(NODE) \
((DECL_FRIEND_P (NODE) && !DECL_FUNCTION_MEMBER_P (NODE)) \
? DECL_LANG_SPECIFIC (NODE)->decl_flags.context \
: NULL_TREE)
/* Set the DECL_FRIEND_CONTEXT for NODE to CONTEXT. */
#define SET_DECL_FRIEND_CONTEXT(NODE, CONTEXT) \
(DECL_LANG_SPECIFIC (NODE)->decl_flags.context = (CONTEXT))
/* NULL_TREE in DECL_CONTEXT represents the global namespace. */ /* NULL_TREE in DECL_CONTEXT represents the global namespace. */
#define CP_DECL_CONTEXT(NODE) \ #define CP_DECL_CONTEXT(NODE) \
@ -1998,7 +2010,8 @@ struct lang_decl
/* For a virtual function, the base where we find its vtable entry. /* For a virtual function, the base where we find its vtable entry.
For a non-virtual function, the base where it is defined. */ For a non-virtual function, the base where it is defined. */
#define DECL_VIRTUAL_CONTEXT(NODE) DECL_CONTEXT (NODE) #define DECL_VIRTUAL_CONTEXT(NODE) \
(DECL_LANG_SPECIFIC (NODE)->decl_flags.context)
/* 1 iff NODE has namespace scope, including the global namespace. */ /* 1 iff NODE has namespace scope, including the global namespace. */
#define DECL_NAMESPACE_SCOPE_P(NODE) \ #define DECL_NAMESPACE_SCOPE_P(NODE) \
@ -2007,8 +2020,7 @@ struct lang_decl
/* 1 iff NODE is a class member. */ /* 1 iff NODE is a class member. */
#define DECL_CLASS_SCOPE_P(NODE) \ #define DECL_CLASS_SCOPE_P(NODE) \
(DECL_CONTEXT (NODE) \ (DECL_CONTEXT (NODE) && TYPE_P (DECL_CONTEXT (NODE)))
&& TREE_CODE_CLASS (TREE_CODE (DECL_CONTEXT (NODE))) == 't')
/* 1 iff NODE is function-local. */ /* 1 iff NODE is function-local. */
#define DECL_FUNCTION_SCOPE_P(NODE) \ #define DECL_FUNCTION_SCOPE_P(NODE) \
@ -3867,7 +3879,6 @@ extern tree cplus_expand_constant PARAMS ((tree));
extern int is_friend PARAMS ((tree, tree)); extern int is_friend PARAMS ((tree, tree));
extern void make_friend_class PARAMS ((tree, tree)); extern void make_friend_class PARAMS ((tree, tree));
extern void add_friend PARAMS ((tree, tree)); extern void add_friend PARAMS ((tree, tree));
extern void add_friends PARAMS ((tree, tree, tree));
extern tree do_friend PARAMS ((tree, tree, tree, tree, tree, enum overload_flags, tree, int)); extern tree do_friend PARAMS ((tree, tree, tree, tree, tree, enum overload_flags, tree, int));
/* in init.c */ /* in init.c */
@ -4252,7 +4263,6 @@ extern tree array_type_nelts_top PARAMS ((tree));
extern tree break_out_target_exprs PARAMS ((tree)); extern tree break_out_target_exprs PARAMS ((tree));
extern tree get_type_decl PARAMS ((tree)); extern tree get_type_decl PARAMS ((tree));
extern tree vec_binfo_member PARAMS ((tree, tree)); extern tree vec_binfo_member PARAMS ((tree, tree));
extern tree hack_decl_function_context PARAMS ((tree));
extern tree decl_namespace_context PARAMS ((tree)); extern tree decl_namespace_context PARAMS ((tree));
extern tree lvalue_type PARAMS ((tree)); extern tree lvalue_type PARAMS ((tree));
extern tree error_type PARAMS ((tree)); extern tree error_type PARAMS ((tree));

57
gcc/cp/decl.c
View File

@ -1005,12 +1005,12 @@ push_class_binding (id, decl)
else else
{ {
if (TREE_CODE (decl) == OVERLOAD) if (TREE_CODE (decl) == OVERLOAD)
context = DECL_REAL_CONTEXT (OVL_CURRENT (decl)); context = CP_DECL_CONTEXT (OVL_CURRENT (decl));
else else
{ {
my_friendly_assert (TREE_CODE_CLASS (TREE_CODE (decl)) == 'd', my_friendly_assert (TREE_CODE_CLASS (TREE_CODE (decl)) == 'd',
0); 0);
context = DECL_REAL_CONTEXT (decl); context = CP_DECL_CONTEXT (decl);
} }
if (is_properly_derived_from (current_class_type, context)) if (is_properly_derived_from (current_class_type, context))
@ -2662,7 +2662,7 @@ pushtag (name, type, globalize)
/* When declaring a friend class of a local class, we want /* When declaring a friend class of a local class, we want
to inject the newly named class into the scope to inject the newly named class into the scope
containing the local class, not the namespace scope. */ containing the local class, not the namespace scope. */
context = hack_decl_function_context (get_type_decl (cs)); context = decl_function_context (get_type_decl (cs));
} }
if (!context) if (!context)
context = current_namespace; context = current_namespace;
@ -2805,7 +2805,7 @@ decls_match (newdecl, olddecl)
tree p1 = TYPE_ARG_TYPES (f1); tree p1 = TYPE_ARG_TYPES (f1);
tree p2 = TYPE_ARG_TYPES (f2); tree p2 = TYPE_ARG_TYPES (f2);
if (DECL_REAL_CONTEXT (newdecl) != DECL_REAL_CONTEXT (olddecl) if (CP_DECL_CONTEXT (newdecl) != CP_DECL_CONTEXT (olddecl)
&& ! (DECL_LANGUAGE (newdecl) == lang_c && ! (DECL_LANGUAGE (newdecl) == lang_c
&& DECL_LANGUAGE (olddecl) == lang_c)) && DECL_LANGUAGE (olddecl) == lang_c))
return 0; return 0;
@ -3070,7 +3070,7 @@ duplicate_decls (newdecl, olddecl)
} }
else if (!types_match) else if (!types_match)
{ {
if (DECL_REAL_CONTEXT (newdecl) != DECL_REAL_CONTEXT (olddecl)) if (CP_DECL_CONTEXT (newdecl) != CP_DECL_CONTEXT (olddecl))
/* These are certainly not duplicate declarations; they're /* These are certainly not duplicate declarations; they're
from different scopes. */ from different scopes. */
return 0; return 0;
@ -3255,10 +3255,10 @@ duplicate_decls (newdecl, olddecl)
definition. */ definition. */
if (DECL_VINDEX (olddecl)) if (DECL_VINDEX (olddecl))
DECL_VINDEX (newdecl) = DECL_VINDEX (olddecl); DECL_VINDEX (newdecl) = DECL_VINDEX (olddecl);
if (DECL_VIRTUAL_CONTEXT (olddecl))
DECL_VIRTUAL_CONTEXT (newdecl) = DECL_VIRTUAL_CONTEXT (olddecl);
if (DECL_CONTEXT (olddecl)) if (DECL_CONTEXT (olddecl))
DECL_CONTEXT (newdecl) = DECL_CONTEXT (olddecl); DECL_CONTEXT (newdecl) = DECL_CONTEXT (olddecl);
if (DECL_CLASS_CONTEXT (olddecl))
DECL_CLASS_CONTEXT (newdecl) = DECL_CLASS_CONTEXT (olddecl);
if (DECL_PENDING_INLINE_INFO (newdecl) == (struct pending_inline *)0) if (DECL_PENDING_INLINE_INFO (newdecl) == (struct pending_inline *)0)
DECL_PENDING_INLINE_INFO (newdecl) = DECL_PENDING_INLINE_INFO (olddecl); DECL_PENDING_INLINE_INFO (newdecl) = DECL_PENDING_INLINE_INFO (olddecl);
DECL_STATIC_CONSTRUCTOR (newdecl) |= DECL_STATIC_CONSTRUCTOR (olddecl); DECL_STATIC_CONSTRUCTOR (newdecl) |= DECL_STATIC_CONSTRUCTOR (olddecl);
@ -3641,8 +3641,6 @@ pushdecl (x)
scoped of the current namespace, not the current scoped of the current namespace, not the current
function. */ function. */
&& !(TREE_CODE (x) == VAR_DECL && DECL_EXTERNAL (x)) && !(TREE_CODE (x) == VAR_DECL && DECL_EXTERNAL (x))
/* Don't change DECL_CONTEXT of virtual methods. */
&& (TREE_CODE (x) != FUNCTION_DECL || !DECL_VIRTUAL_P (x))
&& !DECL_CONTEXT (x)) && !DECL_CONTEXT (x))
DECL_CONTEXT (x) = current_function_decl; DECL_CONTEXT (x) = current_function_decl;
if (!DECL_CONTEXT (x)) if (!DECL_CONTEXT (x))
@ -6713,10 +6711,7 @@ start_decl (declarator, declspecs, initialized, attributes, prefix_attributes)
if (type == error_mark_node) if (type == error_mark_node)
return NULL_TREE; return NULL_TREE;
context context = DECL_CONTEXT (decl);
= (TREE_CODE (decl) == FUNCTION_DECL && DECL_VIRTUAL_P (decl))
? DECL_CLASS_CONTEXT (decl)
: DECL_CONTEXT (decl);
if (initialized && context && TREE_CODE (context) == NAMESPACE_DECL if (initialized && context && TREE_CODE (context) == NAMESPACE_DECL
&& context != current_namespace && TREE_CODE (decl) == VAR_DECL) && context != current_namespace && TREE_CODE (decl) == VAR_DECL)
@ -7690,7 +7685,7 @@ cp_finish_decl (decl, init, asmspec_tree, flags)
} }
if (current_class_type if (current_class_type
&& DECL_REAL_CONTEXT (decl) == current_class_type && CP_DECL_CONTEXT (decl) == current_class_type
&& TYPE_BEING_DEFINED (current_class_type) && TYPE_BEING_DEFINED (current_class_type)
&& (DECL_INITIAL (decl) || init)) && (DECL_INITIAL (decl) || init))
DECL_DEFINED_IN_CLASS_P (decl) = 1; DECL_DEFINED_IN_CLASS_P (decl) = 1;
@ -7855,7 +7850,7 @@ cp_finish_decl (decl, init, asmspec_tree, flags)
due to initialization of qualified member variable. due to initialization of qualified member variable.
I.e., Foo::x = 10; */ I.e., Foo::x = 10; */
{ {
tree context = DECL_REAL_CONTEXT (decl); tree context = CP_DECL_CONTEXT (decl);
if (context if (context
&& TREE_CODE_CLASS (TREE_CODE (context)) == 't' && TREE_CODE_CLASS (TREE_CODE (context)) == 't'
&& (TREE_CODE (decl) == VAR_DECL && (TREE_CODE (decl) == VAR_DECL
@ -8465,7 +8460,7 @@ grokfndecl (ctype, type, declarator, orig_declarator, virtualp, flags, quals,
} }
if (ctype) if (ctype)
DECL_CLASS_CONTEXT (decl) = ctype; DECL_CONTEXT (decl) = ctype;
if (ctype == NULL_TREE && DECL_MAIN_P (decl)) if (ctype == NULL_TREE && DECL_MAIN_P (decl))
{ {
@ -8482,7 +8477,7 @@ grokfndecl (ctype, type, declarator, orig_declarator, virtualp, flags, quals,
/* Members of anonymous types and local classes have no linkage; make /* Members of anonymous types and local classes have no linkage; make
them internal. */ them internal. */
if (ctype && (ANON_AGGRNAME_P (TYPE_IDENTIFIER (ctype)) if (ctype && (ANON_AGGRNAME_P (TYPE_IDENTIFIER (ctype))
|| hack_decl_function_context (TYPE_MAIN_DECL (ctype)))) || decl_function_context (TYPE_MAIN_DECL (ctype))))
publicp = 0; publicp = 0;
if (publicp) if (publicp)
@ -8530,7 +8525,7 @@ grokfndecl (ctype, type, declarator, orig_declarator, virtualp, flags, quals,
if (IDENTIFIER_OPNAME_P (DECL_NAME (decl))) if (IDENTIFIER_OPNAME_P (DECL_NAME (decl)))
grok_op_properties (decl, virtualp, check < 0); grok_op_properties (decl, virtualp, check < 0);
if (ctype && hack_decl_function_context (decl)) if (ctype && decl_function_context (decl))
DECL_NO_STATIC_CHAIN (decl) = 1; DECL_NO_STATIC_CHAIN (decl) = 1;
for (t = TYPE_ARG_TYPES (TREE_TYPE (decl)); t; t = TREE_CHAIN (t)) for (t = TYPE_ARG_TYPES (TREE_TYPE (decl)); t; t = TREE_CHAIN (t))
@ -8719,7 +8714,6 @@ grokvardecl (type, declarator, specbits_in, initialized, constp, in_namespace)
type = TREE_TYPE (type); type = TREE_TYPE (type);
decl = build_lang_decl (VAR_DECL, declarator, type); decl = build_lang_decl (VAR_DECL, declarator, type);
DECL_CONTEXT (decl) = basetype; DECL_CONTEXT (decl) = basetype;
DECL_CLASS_CONTEXT (decl) = basetype;
DECL_ASSEMBLER_NAME (decl) = build_static_name (basetype, declarator); DECL_ASSEMBLER_NAME (decl) = build_static_name (basetype, declarator);
} }
else else
@ -10488,7 +10482,7 @@ grokdeclarator (declarator, declspecs, decl_context, initialized, attrlist)
template_count += 1; template_count += 1;
t = TYPE_MAIN_DECL (t); t = TYPE_MAIN_DECL (t);
if (DECL_LANG_SPECIFIC (t)) if (DECL_LANG_SPECIFIC (t))
t = DECL_CLASS_CONTEXT (t); t = DECL_CONTEXT (t);
else else
t = NULL_TREE; t = NULL_TREE;
} }
@ -10975,7 +10969,7 @@ grokdeclarator (declarator, declspecs, decl_context, initialized, attrlist)
/* Tell grokfndecl if it needs to set TREE_PUBLIC on the node. */ /* Tell grokfndecl if it needs to set TREE_PUBLIC on the node. */
function_context = (ctype != NULL_TREE) ? function_context = (ctype != NULL_TREE) ?
hack_decl_function_context (TYPE_MAIN_DECL (ctype)) : NULL_TREE; decl_function_context (TYPE_MAIN_DECL (ctype)) : NULL_TREE;
publicp = (! friendp || ! staticp) publicp = (! friendp || ! staticp)
&& function_context == NULL_TREE; && function_context == NULL_TREE;
decl = grokfndecl (ctype, type, decl = grokfndecl (ctype, type,
@ -11718,17 +11712,26 @@ replace_defarg (arg, init)
TREE_PURPOSE (arg) = init; TREE_PURPOSE (arg) = init;
} }
/* D is a constructor or overloaded `operator='. Returns non-zero if
D's arguments allow it to be a copy constructor, or copy assignment
operator. */
int int
copy_args_p (d) copy_args_p (d)
tree d; tree d;
{ {
tree t = FUNCTION_ARG_CHAIN (d); tree t;
if (!DECL_FUNCTION_MEMBER_P (d))
return 0;
t = FUNCTION_ARG_CHAIN (d);
if (DECL_CONSTRUCTOR_P (d) if (DECL_CONSTRUCTOR_P (d)
&& TYPE_USES_VIRTUAL_BASECLASSES (DECL_CONTEXT (d))) && TYPE_USES_VIRTUAL_BASECLASSES (DECL_CONTEXT (d)))
t = TREE_CHAIN (t); t = TREE_CHAIN (t);
if (t && TREE_CODE (TREE_VALUE (t)) == REFERENCE_TYPE if (t && TREE_CODE (TREE_VALUE (t)) == REFERENCE_TYPE
&& (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_VALUE (t))) && (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_VALUE (t)))
== DECL_CLASS_CONTEXT (d)) == DECL_CONTEXT (d))
&& (TREE_CHAIN (t) == NULL_TREE && (TREE_CHAIN (t) == NULL_TREE
|| TREE_CHAIN (t) == void_list_node || TREE_CHAIN (t) == void_list_node
|| TREE_PURPOSE (TREE_CHAIN (t)))) || TREE_PURPOSE (TREE_CHAIN (t))))
@ -12972,7 +12975,7 @@ start_function (declspecs, declarator, attrs, flags)
defined. */ defined. */
if (!ctype && DECL_FRIEND_P (decl1)) if (!ctype && DECL_FRIEND_P (decl1))
{ {
ctype = DECL_CLASS_CONTEXT (decl1); ctype = DECL_FRIEND_CONTEXT (decl1);
/* CTYPE could be null here if we're dealing with a template; /* CTYPE could be null here if we're dealing with a template;
for example, `inline friend float foo()' inside a template for example, `inline friend float foo()' inside a template
@ -13216,7 +13219,7 @@ start_function (declspecs, declarator, attrs, flags)
if (DECL_INTERFACE_KNOWN (decl1)) if (DECL_INTERFACE_KNOWN (decl1))
{ {
tree ctx = hack_decl_function_context (decl1); tree ctx = decl_function_context (decl1);
if (DECL_NOT_REALLY_EXTERN (decl1)) if (DECL_NOT_REALLY_EXTERN (decl1))
DECL_EXTERNAL (decl1) = 0; DECL_EXTERNAL (decl1) = 0;
@ -13273,7 +13276,7 @@ start_function (declspecs, declarator, attrs, flags)
if ((DECL_THIS_INLINE (decl1) || DECL_TEMPLATE_INSTANTIATION (decl1)) if ((DECL_THIS_INLINE (decl1) || DECL_TEMPLATE_INSTANTIATION (decl1))
&& ! DECL_INTERFACE_KNOWN (decl1) && ! DECL_INTERFACE_KNOWN (decl1)
/* Don't try to defer nested functions for now. */ /* Don't try to defer nested functions for now. */
&& ! hack_decl_function_context (decl1)) && ! decl_function_context (decl1))
DECL_DEFER_OUTPUT (decl1) = 1; DECL_DEFER_OUTPUT (decl1) = 1;
else else
DECL_INTERFACE_KNOWN (decl1) = 1; DECL_INTERFACE_KNOWN (decl1) = 1;
@ -13921,7 +13924,7 @@ finish_function (lineno, flags)
can_reach_end = 0; can_reach_end = 0;
if (DECL_CONTEXT (fndecl) != NULL_TREE if (DECL_CONTEXT (fndecl) != NULL_TREE
&& hack_decl_function_context (fndecl)) && decl_function_context (fndecl))
/* Trick rest_of_compilation into not deferring output of this /* Trick rest_of_compilation into not deferring output of this
function, even if it is inline, since the rtl_obstack for function, even if it is inline, since the rtl_obstack for
this function is the function_obstack of the enclosing this function is the function_obstack of the enclosing

21
gcc/cp/decl2.c
View File

@ -922,7 +922,7 @@ maybe_retrofit_in_chrg (fn)
tree basetype, arg_types, parms, parm, fntype; tree basetype, arg_types, parms, parm, fntype;
if (DECL_CONSTRUCTOR_P (fn) if (DECL_CONSTRUCTOR_P (fn)
&& TYPE_USES_VIRTUAL_BASECLASSES (DECL_CLASS_CONTEXT (fn)) && TYPE_USES_VIRTUAL_BASECLASSES (DECL_CONTEXT (fn))
&& ! DECL_CONSTRUCTOR_FOR_VBASE_P (fn)) && ! DECL_CONSTRUCTOR_FOR_VBASE_P (fn))
/* OK */; /* OK */;
else if (! DECL_CONSTRUCTOR_P (fn) else if (! DECL_CONSTRUCTOR_P (fn)
@ -1017,7 +1017,7 @@ grokclassfn (ctype, function, flags, quals)
DECL_ARGUMENTS (function) = last_function_parms; DECL_ARGUMENTS (function) = last_function_parms;
/* First approximations. */ /* First approximations. */
DECL_CONTEXT (function) = ctype; DECL_CONTEXT (function) = ctype;
DECL_CLASS_CONTEXT (function) = ctype; DECL_VIRTUAL_CONTEXT (function) = ctype;
if (flags == DTOR_FLAG || DECL_CONSTRUCTOR_P (function)) if (flags == DTOR_FLAG || DECL_CONSTRUCTOR_P (function))
maybe_retrofit_in_chrg (function); maybe_retrofit_in_chrg (function);
@ -1517,7 +1517,6 @@ finish_static_data_member_decl (decl, init, asmspec_tree, flags)
DECL_INITIAL (decl) = init; DECL_INITIAL (decl) = init;
DECL_IN_AGGR_P (decl) = 1; DECL_IN_AGGR_P (decl) = 1;
DECL_CONTEXT (decl) = current_class_type; DECL_CONTEXT (decl) = current_class_type;
DECL_CLASS_CONTEXT (decl) = current_class_type;
cp_finish_decl (decl, init, asmspec_tree, flags); cp_finish_decl (decl, init, asmspec_tree, flags);
} }
@ -1601,7 +1600,6 @@ grokfield (declarator, declspecs, init, asmspec_tree, attrlist)
{ {
DECL_NONLOCAL (value) = 1; DECL_NONLOCAL (value) = 1;
DECL_CONTEXT (value) = current_class_type; DECL_CONTEXT (value) = current_class_type;
DECL_CLASS_CONTEXT (value) = current_class_type;
/* Now that we've updated the context, we need to remangle the /* Now that we've updated the context, we need to remangle the
name for this TYPE_DECL. */ name for this TYPE_DECL. */
@ -2182,7 +2180,6 @@ finish_builtin_type (type, name, fields, len, align_type)
TREE_CHAIN (fields[i]) = fields[i+1]; TREE_CHAIN (fields[i]) = fields[i+1];
} }
DECL_FIELD_CONTEXT (fields[i]) = type; DECL_FIELD_CONTEXT (fields[i]) = type;
DECL_CLASS_CONTEXT (fields[i]) = type;
TYPE_ALIGN (type) = TYPE_ALIGN (align_type); TYPE_ALIGN (type) = TYPE_ALIGN (align_type);
layout_type (type); layout_type (type);
#if 0 /* not yet, should get fixed properly later */ #if 0 /* not yet, should get fixed properly later */
@ -2551,7 +2548,7 @@ finish_vtable_vardecl (t, data)
if (! DECL_EXTERNAL (vars) if (! DECL_EXTERNAL (vars)
&& (DECL_NEEDED_P (vars) && (DECL_NEEDED_P (vars)
|| (hack_decl_function_context (vars) && TREE_USED (vars))) || (decl_function_context (vars) && TREE_USED (vars)))
&& ! TREE_ASM_WRITTEN (vars)) && ! TREE_ASM_WRITTEN (vars))
{ {
if (TREE_TYPE (vars) == void_type_node) if (TREE_TYPE (vars) == void_type_node)
@ -2660,7 +2657,7 @@ import_export_decl (decl)
} }
else if (DECL_FUNCTION_MEMBER_P (decl)) else if (DECL_FUNCTION_MEMBER_P (decl))
{ {
tree ctype = DECL_CLASS_CONTEXT (decl); tree ctype = DECL_CONTEXT (decl);
import_export_class (ctype); import_export_class (ctype);
if (CLASSTYPE_INTERFACE_KNOWN (ctype) if (CLASSTYPE_INTERFACE_KNOWN (ctype)
&& (flag_new_abi && (flag_new_abi
@ -3109,7 +3106,7 @@ start_static_initialization_or_destruction (decl, initp)
which the DECL is a member. */ which the DECL is a member. */
if (member_p (decl)) if (member_p (decl))
{ {
DECL_CLASS_CONTEXT (current_function_decl) = DECL_CONTEXT (decl); DECL_CONTEXT (current_function_decl) = DECL_CONTEXT (decl);
DECL_STATIC_FUNCTION_P (current_function_decl) = 1; DECL_STATIC_FUNCTION_P (current_function_decl) = 1;
} }
@ -3174,7 +3171,7 @@ finish_static_initialization_or_destruction (sentry_if_stmt)
/* Now that we're done with DECL we don't need to pretend to be a /* Now that we're done with DECL we don't need to pretend to be a
member of its class any longer. */ member of its class any longer. */
DECL_CLASS_CONTEXT (current_function_decl) = NULL_TREE; DECL_CONTEXT (current_function_decl) = NULL_TREE;
DECL_STATIC_FUNCTION_P (current_function_decl) = 0; DECL_STATIC_FUNCTION_P (current_function_decl) = 0;
} }
@ -5202,8 +5199,10 @@ mark_used (decl)
assemble_external (decl); assemble_external (decl);
/* Is it a synthesized method that needs to be synthesized? */ /* Is it a synthesized method that needs to be synthesized? */
if (TREE_CODE (decl) == FUNCTION_DECL && DECL_CLASS_CONTEXT (decl) if (TREE_CODE (decl) == FUNCTION_DECL
&& DECL_ARTIFICIAL (decl) && ! DECL_INITIAL (decl) && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl)
&& DECL_ARTIFICIAL (decl)
&& ! DECL_INITIAL (decl)
/* Kludge: don't synthesize for default args. */ /* Kludge: don't synthesize for default args. */
&& current_function_decl) && current_function_decl)
synthesize_method (decl); synthesize_method (decl);

2
gcc/cp/dump.c
View File

@ -556,7 +556,7 @@ dequeue_and_dump (di)
case FUNCTION_DECL: case FUNCTION_DECL:
case THUNK_DECL: case THUNK_DECL:
dump_child ("scpe", DECL_REAL_CONTEXT (t)); dump_child ("scpe", CP_DECL_CONTEXT (t));
dump_child ("mngl", DECL_ASSEMBLER_NAME (t)); dump_child ("mngl", DECL_ASSEMBLER_NAME (t));
dump_child ("args", DECL_ARGUMENTS (t)); dump_child ("args", DECL_ARGUMENTS (t));
if (DECL_EXTERNAL (t)) if (DECL_EXTERNAL (t))

10
gcc/cp/error.c
View File

@ -1131,9 +1131,8 @@ dump_function_decl (t, flags)
fntype = TREE_TYPE (t); fntype = TREE_TYPE (t);
parmtypes = TYPE_ARG_TYPES (fntype); parmtypes = TYPE_ARG_TYPES (fntype);
/* Friends have DECL_CLASS_CONTEXT set, but not DECL_CONTEXT. */
if (DECL_CLASS_SCOPE_P (t)) if (DECL_CLASS_SCOPE_P (t))
cname = DECL_CLASS_CONTEXT (t); cname = DECL_CONTEXT (t);
/* this is for partially instantiated template methods */ /* this is for partially instantiated template methods */
else if (TREE_CODE (fntype) == METHOD_TYPE) else if (TREE_CODE (fntype) == METHOD_TYPE)
cname = TREE_TYPE (TREE_VALUE (parmtypes)); cname = TREE_TYPE (TREE_VALUE (parmtypes));
@ -2148,12 +2147,7 @@ lang_decl_name (decl, v)
if (v == 1 && DECL_CLASS_SCOPE_P (decl)) if (v == 1 && DECL_CLASS_SCOPE_P (decl))
{ {
tree cname; dump_type (CP_DECL_CONTEXT (decl), TS_PLAIN);
if (TREE_CODE (decl) == FUNCTION_DECL)
cname = DECL_CLASS_CONTEXT (decl);
else
cname = DECL_CONTEXT (decl);
dump_type (cname, TS_PLAIN);
OB_PUTS ("::"); OB_PUTS ("::");
} }

56
gcc/cp/friend.c
View File

@ -49,12 +49,6 @@ is_friend (type, supplicant)
{ {
tree list = DECL_FRIENDLIST (TYPE_MAIN_DECL (type)); tree list = DECL_FRIENDLIST (TYPE_MAIN_DECL (type));
tree name = DECL_NAME (supplicant); tree name = DECL_NAME (supplicant);
tree ctype;
if (DECL_FUNCTION_MEMBER_P (supplicant))
ctype = DECL_CLASS_CONTEXT (supplicant);
else
ctype = NULL_TREE;
for (; list ; list = TREE_CHAIN (list)) for (; list ; list = TREE_CHAIN (list))
{ {
@ -63,9 +57,6 @@ is_friend (type, supplicant)
tree friends = FRIEND_DECLS (list); tree friends = FRIEND_DECLS (list);
for (; friends ; friends = TREE_CHAIN (friends)) for (; friends ; friends = TREE_CHAIN (friends))
{ {
if (same_type_p (ctype, TREE_PURPOSE (friends)))
return 1;
if (TREE_VALUE (friends) == NULL_TREE) if (TREE_VALUE (friends) == NULL_TREE)
continue; continue;
@ -122,10 +113,10 @@ is_friend (type, supplicant)
} }
if (declp && DECL_FUNCTION_MEMBER_P (supplicant)) if (declp && DECL_FUNCTION_MEMBER_P (supplicant))
context = DECL_CLASS_CONTEXT (supplicant); context = DECL_CONTEXT (supplicant);
else if (! declp) else if (! declp)
/* Local classes have the same access as the enclosing function. */ /* Local classes have the same access as the enclosing function. */
context = hack_decl_function_context (TYPE_MAIN_DECL (supplicant)); context = decl_function_context (TYPE_MAIN_DECL (supplicant));
else else
context = NULL_TREE; context = NULL_TREE;
@ -190,47 +181,6 @@ add_friend (type, decl)
DECL_BEFRIENDING_CLASSES (decl)); DECL_BEFRIENDING_CLASSES (decl));
} }
/* Declare that every member function NAME in FRIEND_TYPE
(which may be NULL_TREE) is a friend of type TYPE. */
void
add_friends (type, name, friend_type)
tree type, name, friend_type;
{
tree typedecl = TYPE_MAIN_DECL (type);
tree list = DECL_FRIENDLIST (typedecl);
while (list)
{
if (name == FRIEND_NAME (list))
{
tree friends = FRIEND_DECLS (list);
while (friends && TREE_PURPOSE (friends) != friend_type)
friends = TREE_CHAIN (friends);
if (friends)
{
if (friend_type)
warning ("method `%s::%s' is already a friend of class",
TYPE_NAME_STRING (friend_type),
IDENTIFIER_POINTER (name));
else
warning ("function `%s' is already a friend of class `%s'",
IDENTIFIER_POINTER (name),
IDENTIFIER_POINTER (DECL_NAME (typedecl)));
}
else
TREE_VALUE (list) = tree_cons (friend_type, NULL_TREE,
TREE_VALUE (list));
return;
}
list = TREE_CHAIN (list);
}
DECL_FRIENDLIST (typedecl)
= tree_cons (name,
build_tree_list (friend_type, NULL_TREE),
DECL_FRIENDLIST (typedecl));
}
/* Make FRIEND_TYPE a friend class to TYPE. If FRIEND_TYPE has already /* Make FRIEND_TYPE a friend class to TYPE. If FRIEND_TYPE has already
been defined, we make all of its member functions friends of been defined, we make all of its member functions friends of
TYPE. If not, we make it a pending friend, which can later be added TYPE. If not, we make it a pending friend, which can later be added
@ -434,7 +384,7 @@ do_friend (ctype, declarator, decl, parmdecls, attrlist,
in their scope, their friend wind up in top-level scope as well. */ in their scope, their friend wind up in top-level scope as well. */
DECL_ARGUMENTS (decl) = parmdecls; DECL_ARGUMENTS (decl) = parmdecls;
if (funcdef_flag) if (funcdef_flag)
DECL_CLASS_CONTEXT (decl) = current_class_type; SET_DECL_FRIEND_CONTEXT (decl, current_class_type);
if (! DECL_USE_TEMPLATE (decl)) if (! DECL_USE_TEMPLATE (decl))
{ {

6
gcc/cp/lex.c
View File

@ -1278,7 +1278,7 @@ begin_definition_of_inclass_inline (pi)
/* If this is an inline function in a local class, we must make sure /* If this is an inline function in a local class, we must make sure
that we save all pertinent information about the function that we save all pertinent information about the function
surrounding the local class. */ surrounding the local class. */
context = hack_decl_function_context (pi->fndecl); context = decl_function_context (pi->fndecl);
if (context) if (context)
push_function_context_to (context); push_function_context_to (context);
@ -1340,7 +1340,7 @@ process_next_inline (i)
struct pending_inline *i; struct pending_inline *i;
{ {
tree context; tree context;
context = hack_decl_function_context (i->fndecl); context = decl_function_context (i->fndecl);
if (context) if (context)
pop_function_context_from (context); pop_function_context_from (context);
i = i->next; i = i->next;
@ -3176,7 +3176,7 @@ do_identifier (token, parsing, args)
{ {
/* Check access. */ /* Check access. */
if (IDENTIFIER_CLASS_VALUE (token) == id) if (IDENTIFIER_CLASS_VALUE (token) == id)
enforce_access (DECL_REAL_CONTEXT(id), id); enforce_access (CP_DECL_CONTEXT(id), id);
if (!processing_template_decl || DECL_TEMPLATE_PARM_P (id)) if (!processing_template_decl || DECL_TEMPLATE_PARM_P (id))
id = DECL_INITIAL (id); id = DECL_INITIAL (id);
} }

15
gcc/cp/method.c
View File

@ -1726,7 +1726,7 @@ set_mangled_name_for_decl (decl)
if (DECL_STATIC_FUNCTION_P (decl)) if (DECL_STATIC_FUNCTION_P (decl))
parm_types = parm_types =
hash_tree_chain (build_pointer_type (DECL_CLASS_CONTEXT (decl)), hash_tree_chain (build_pointer_type (DECL_CONTEXT (decl)),
parm_types); parm_types);
else else
/* The only member functions whose type is a FUNCTION_TYPE, rather /* The only member functions whose type is a FUNCTION_TYPE, rather
@ -1930,7 +1930,7 @@ hack_identifier (value, name)
if (TREE_CODE (value) == OVERLOAD) if (TREE_CODE (value) == OVERLOAD)
value = OVL_CURRENT (value); value = OVL_CURRENT (value);
decl = maybe_dummy_object (DECL_CLASS_CONTEXT (value), 0); decl = maybe_dummy_object (DECL_CONTEXT (value), 0);
value = build_component_ref (decl, name, NULL_TREE, 1); value = build_component_ref (decl, name, NULL_TREE, 1);
} }
else if (really_overloaded_fn (value)) else if (really_overloaded_fn (value))
@ -1979,15 +1979,10 @@ hack_identifier (value, name)
if (TREE_CODE_CLASS (TREE_CODE (value)) == 'd' && DECL_NONLOCAL (value)) if (TREE_CODE_CLASS (TREE_CODE (value)) == 'd' && DECL_NONLOCAL (value))
{ {
if (DECL_CLASS_SCOPE_P (value) if (DECL_CLASS_SCOPE_P (value)
&& DECL_CLASS_CONTEXT (value) != current_class_type) && DECL_CONTEXT (value) != current_class_type)
{ {
tree path; tree path;
register tree context path = currently_open_derived_class (DECL_CONTEXT (value));
= (TREE_CODE (value) == FUNCTION_DECL && DECL_VIRTUAL_P (value))
? DECL_CLASS_CONTEXT (value)
: DECL_CONTEXT (value);
path = currently_open_derived_class (context);
enforce_access (path, value); enforce_access (path, value);
} }
} }
@ -2349,7 +2344,7 @@ synthesize_method (fndecl)
tree fndecl; tree fndecl;
{ {
int nested = (current_function_decl != NULL_TREE); int nested = (current_function_decl != NULL_TREE);
tree context = hack_decl_function_context (fndecl); tree context = decl_function_context (fndecl);
int need_body = 1; int need_body = 1;
if (at_eof) if (at_eof)

53
gcc/cp/pt.c
View File

@ -244,7 +244,7 @@ template_class_depth_real (type, count_specializations)
for (depth = 0; for (depth = 0;
type && TREE_CODE (type) != NAMESPACE_DECL; type && TREE_CODE (type) != NAMESPACE_DECL;
type = (TREE_CODE (type) == FUNCTION_DECL) type = (TREE_CODE (type) == FUNCTION_DECL)
? DECL_REAL_CONTEXT (type) : TYPE_CONTEXT (type)) ? CP_DECL_CONTEXT (type) : TYPE_CONTEXT (type))
{ {
if (TREE_CODE (type) != FUNCTION_DECL) if (TREE_CODE (type) != FUNCTION_DECL)
{ {
@ -430,7 +430,7 @@ is_member_template (t)
return 0; return 0;
/* A local class can't have member templates. */ /* A local class can't have member templates. */
if (hack_decl_function_context (t)) if (decl_function_context (t))
return 0; return 0;
return (DECL_FUNCTION_MEMBER_P (DECL_TEMPLATE_RESULT (t)) return (DECL_FUNCTION_MEMBER_P (DECL_TEMPLATE_RESULT (t))
@ -438,7 +438,7 @@ is_member_template (t)
there are template classes surrounding the declaration, there are template classes surrounding the declaration,
then we have a member template. */ then we have a member template. */
&& (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (t)) > && (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (t)) >
template_class_depth (DECL_CLASS_CONTEXT (t)))); template_class_depth (DECL_CONTEXT (t))));
} }
#if 0 /* UNUSED */ #if 0 /* UNUSED */
@ -1934,7 +1934,7 @@ build_template_decl (decl, parms)
DECL_CONTEXT (tmpl) = DECL_CONTEXT (decl); DECL_CONTEXT (tmpl) = DECL_CONTEXT (decl);
if (DECL_LANG_SPECIFIC (decl)) if (DECL_LANG_SPECIFIC (decl))
{ {
DECL_CLASS_CONTEXT (tmpl) = DECL_CLASS_CONTEXT (decl); DECL_VIRTUAL_CONTEXT (tmpl) = DECL_VIRTUAL_CONTEXT (decl);
DECL_STATIC_FUNCTION_P (tmpl) = DECL_STATIC_FUNCTION_P (decl); DECL_STATIC_FUNCTION_P (tmpl) = DECL_STATIC_FUNCTION_P (decl);
DECL_CONSTRUCTOR_P (tmpl) = DECL_CONSTRUCTOR_P (decl); DECL_CONSTRUCTOR_P (tmpl) = DECL_CONSTRUCTOR_P (decl);
DECL_NONCONVERTING_P (tmpl) = DECL_NONCONVERTING_P (decl); DECL_NONCONVERTING_P (tmpl) = DECL_NONCONVERTING_P (decl);
@ -2197,7 +2197,7 @@ check_default_tmpl_args (decl, parms, is_primary, is_partial)
in the template-parameter-list of the definition of a member of a in the template-parameter-list of the definition of a member of a
class template. */ class template. */
if (TREE_CODE (DECL_REAL_CONTEXT (decl)) == FUNCTION_DECL) if (TREE_CODE (CP_DECL_CONTEXT (decl)) == FUNCTION_DECL)
/* You can't have a function template declaration in a local /* You can't have a function template declaration in a local
scope, nor you can you define a member of a class template in a scope, nor you can you define a member of a class template in a
local scope. */ local scope. */
@ -2208,7 +2208,11 @@ check_default_tmpl_args (decl, parms, is_primary, is_partial)
&& DECL_LANG_SPECIFIC (decl) && DECL_LANG_SPECIFIC (decl)
/* If this is either a friend defined in the scope of the class /* If this is either a friend defined in the scope of the class
or a member function. */ or a member function. */
&& DECL_CLASS_CONTEXT (decl) == current_class_type && ((DECL_CONTEXT (decl)
&& same_type_p (DECL_CONTEXT (decl), current_class_type))
|| (DECL_FRIEND_CONTEXT (decl)
&& same_type_p (DECL_FRIEND_CONTEXT (decl),
current_class_type)))
/* And, if it was a member function, it really was defined in /* And, if it was a member function, it really was defined in
the scope of the class. */ the scope of the class. */
&& (!DECL_FUNCTION_MEMBER_P (decl) || DECL_DEFINED_IN_CLASS_P (decl))) && (!DECL_FUNCTION_MEMBER_P (decl) || DECL_DEFINED_IN_CLASS_P (decl)))
@ -2348,11 +2352,11 @@ push_template_decl_real (decl, is_friend)
/* For a friend, we want the context of the friend function, not /* For a friend, we want the context of the friend function, not
the type of which it is a friend. */ the type of which it is a friend. */
ctx = DECL_CONTEXT (decl); ctx = DECL_CONTEXT (decl);
else if (DECL_REAL_CONTEXT (decl) else if (CP_DECL_CONTEXT (decl)
&& TREE_CODE (DECL_REAL_CONTEXT (decl)) != NAMESPACE_DECL) && TREE_CODE (CP_DECL_CONTEXT (decl)) != NAMESPACE_DECL)
/* In the case of a virtual function, we want the class in which /* In the case of a virtual function, we want the class in which
it is defined. */ it is defined. */
ctx = DECL_REAL_CONTEXT (decl); ctx = CP_DECL_CONTEXT (decl);
else else
/* Otherwise, if we're currently definining some class, the DECL /* Otherwise, if we're currently definining some class, the DECL
is assumed to be a member of the class. */ is assumed to be a member of the class. */
@ -5012,11 +5016,7 @@ instantiate_class_template (type)
tsubst_friend_function (TREE_VALUE (friends), tsubst_friend_function (TREE_VALUE (friends),
args)); args));
else else
add_friends (type, my_friendly_abort (20000216);
tsubst_copy (TREE_PURPOSE (t), args,
/*complain=*/1, NULL_TREE),
tsubst (TREE_PURPOSE (friends), args,
/*complain=*/1, NULL_TREE));
} }
for (t = CLASSTYPE_FRIEND_CLASSES (pattern); for (t = CLASSTYPE_FRIEND_CLASSES (pattern);
@ -5337,7 +5337,7 @@ tsubst_default_argument (fn, type, arg)
we must be careful to do name lookup in the scope of S<T>, we must be careful to do name lookup in the scope of S<T>,
rather than in the current class. */ rather than in the current class. */
if (DECL_CLASS_SCOPE_P (fn)) if (DECL_CLASS_SCOPE_P (fn))
pushclass (DECL_REAL_CONTEXT (fn), 2); pushclass (DECL_CONTEXT (fn), 2);
arg = tsubst_expr (arg, DECL_TI_ARGS (fn), /*complain=*/1, NULL_TREE); arg = tsubst_expr (arg, DECL_TI_ARGS (fn), /*complain=*/1, NULL_TREE);
@ -5453,10 +5453,11 @@ tsubst_decl (t, args, type, in_decl)
} }
DECL_CONTEXT (r) DECL_CONTEXT (r)
= tsubst_aggr_type (DECL_CONTEXT (t), args, /*complain=*/1, = tsubst_aggr_type (DECL_CONTEXT (t), args,
in_decl, /*entering_scope=*/1); /*complain=*/1, in_decl,
DECL_CLASS_CONTEXT (r) /*entering_scope=*/1);
= tsubst_aggr_type (DECL_CLASS_CONTEXT (t), args, DECL_VIRTUAL_CONTEXT (r)
= tsubst_aggr_type (DECL_VIRTUAL_CONTEXT (t), args,
/*complain=*/1, in_decl, /*complain=*/1, in_decl,
/*entering_scope=*/1); /*entering_scope=*/1);
DECL_TEMPLATE_INFO (r) = build_tree_list (t, args); DECL_TEMPLATE_INFO (r) = build_tree_list (t, args);
@ -5660,14 +5661,14 @@ tsubst_decl (t, args, type, in_decl)
member = 2; member = 2;
else else
member = 1; member = 1;
ctx = tsubst_aggr_type (DECL_CLASS_CONTEXT (t), args, ctx = tsubst_aggr_type (DECL_CONTEXT (t), args,
/*complain=*/1, t, /*complain=*/1, t,
/*entering_scope=*/1); /*entering_scope=*/1);
} }
else else
{ {
member = 0; member = 0;
ctx = NULL_TREE; ctx = DECL_CONTEXT (t);
} }
type = tsubst (type, args, /*complain=*/1, in_decl); type = tsubst (type, args, /*complain=*/1, in_decl);
if (type == error_mark_node) if (type == error_mark_node)
@ -5683,10 +5684,11 @@ tsubst_decl (t, args, type, in_decl)
DECL_USE_TEMPLATE (r) = 0; DECL_USE_TEMPLATE (r) = 0;
TREE_TYPE (r) = type; TREE_TYPE (r) = type;
DECL_CONTEXT (r) DECL_CONTEXT (r) = ctx;
= tsubst_aggr_type (DECL_CONTEXT (t), args, /*complain=*/1, t, DECL_VIRTUAL_CONTEXT (r)
= tsubst_aggr_type (DECL_VIRTUAL_CONTEXT (t), args,
/*complain=*/1, t,
/*entering_scope=*/1); /*entering_scope=*/1);
DECL_CLASS_CONTEXT (r) = ctx;
if (member && IDENTIFIER_TYPENAME_P (DECL_NAME (r))) if (member && IDENTIFIER_TYPENAME_P (DECL_NAME (r)))
/* Type-conversion operator. Reconstruct the name, in /* Type-conversion operator. Reconstruct the name, in
@ -5909,7 +5911,6 @@ tsubst_decl (t, args, type, in_decl)
DECL_RTL (r) = 0; DECL_RTL (r) = 0;
DECL_SIZE (r) = 0; DECL_SIZE (r) = 0;
copy_lang_decl (r); copy_lang_decl (r);
DECL_CLASS_CONTEXT (r) = DECL_CONTEXT (r);
/* For __PRETTY_FUNCTION__ we have to adjust the initializer. */ /* For __PRETTY_FUNCTION__ we have to adjust the initializer. */
if (DECL_PRETTY_FUNCTION_P (r)) if (DECL_PRETTY_FUNCTION_P (r))
@ -9888,7 +9889,7 @@ set_mangled_name_for_template_decl (decl)
with the innermost level omitted. */ with the innermost level omitted. */
fn_type = TREE_TYPE (tmpl); fn_type = TREE_TYPE (tmpl);
if (DECL_STATIC_FUNCTION_P (decl)) if (DECL_STATIC_FUNCTION_P (decl))
context = DECL_CLASS_CONTEXT (decl); context = DECL_CONTEXT (decl);
if (parm_depth == 1) if (parm_depth == 1)
/* No substitution is necessary. */ /* No substitution is necessary. */

4
gcc/cp/repo.c
View File

@ -171,9 +171,9 @@ repo_inline_used (fn)
/* Member functions of polymorphic classes go with their vtables. */ /* Member functions of polymorphic classes go with their vtables. */
if (DECL_FUNCTION_MEMBER_P (fn) if (DECL_FUNCTION_MEMBER_P (fn)
&& TYPE_POLYMORPHIC_P (DECL_CLASS_CONTEXT (fn))) && TYPE_POLYMORPHIC_P (DECL_CONTEXT (fn)))
{ {
repo_vtable_used (DECL_CLASS_CONTEXT (fn)); repo_vtable_used (DECL_CONTEXT (fn));
return; return;
} }

28
gcc/cp/search.c
View File

@ -692,7 +692,12 @@ current_scope ()
return current_class_type; return current_class_type;
if (current_class_type == NULL_TREE) if (current_class_type == NULL_TREE)
return current_function_decl; return current_function_decl;
if (DECL_CLASS_CONTEXT (current_function_decl) == current_class_type) if ((DECL_FUNCTION_MEMBER_P (current_function_decl)
&& same_type_p (DECL_CONTEXT (current_function_decl),
current_class_type))
|| (DECL_FRIEND_CONTEXT (current_function_decl)
&& same_type_p (DECL_FRIEND_CONTEXT (current_function_decl),
current_class_type)))
return current_function_decl; return current_function_decl;
return current_class_type; return current_class_type;
@ -721,7 +726,7 @@ context_for_name_lookup (decl)
definition, the members of the anonymous union are considered to definition, the members of the anonymous union are considered to
have been defined in the scope in which teh anonymous union is have been defined in the scope in which teh anonymous union is
declared. */ declared. */
tree context = DECL_REAL_CONTEXT (decl); tree context = CP_DECL_CONTEXT (decl);
while (TYPE_P (context) && ANON_AGGR_TYPE_P (context)) while (TYPE_P (context) && ANON_AGGR_TYPE_P (context))
context = TYPE_CONTEXT (context); context = TYPE_CONTEXT (context);
@ -1064,7 +1069,8 @@ friend_accessible_p (scope, type, decl, binfo)
{ {
/* Perhaps this SCOPE is a member of a class which is a /* Perhaps this SCOPE is a member of a class which is a
friend. */ friend. */
if (friend_accessible_p (DECL_CLASS_CONTEXT (scope), type, if (DECL_CLASS_SCOPE_P (decl)
&& friend_accessible_p (DECL_CONTEXT (scope), type,
decl, binfo)) decl, binfo))
return 1; return 1;
@ -1280,7 +1286,7 @@ lookup_fnfields_here (type, name)
fndecls = TREE_VEC_ELT (CLASSTYPE_METHOD_VEC (type), idx); fndecls = TREE_VEC_ELT (CLASSTYPE_METHOD_VEC (type), idx);
while (fndecls) while (fndecls)
{ {
if (TYPE_MAIN_VARIANT (DECL_CLASS_CONTEXT (OVL_CURRENT (fndecls))) if (TYPE_MAIN_VARIANT (DECL_CONTEXT (OVL_CURRENT (fndecls)))
== TYPE_MAIN_VARIANT (type)) == TYPE_MAIN_VARIANT (type))
return idx; return idx;
fndecls = OVL_CHAIN (fndecls); fndecls = OVL_CHAIN (fndecls);
@ -2044,7 +2050,7 @@ check_final_overrider (overrider, basefn)
cp_error_at ("conflicting return type specified for `virtual %#D'", overrider); cp_error_at ("conflicting return type specified for `virtual %#D'", overrider);
cp_error_at (" overriding `virtual %#D'", basefn); cp_error_at (" overriding `virtual %#D'", basefn);
SET_IDENTIFIER_ERROR_LOCUS (DECL_ASSEMBLER_NAME (overrider), SET_IDENTIFIER_ERROR_LOCUS (DECL_ASSEMBLER_NAME (overrider),
DECL_CLASS_CONTEXT (overrider)); DECL_CONTEXT (overrider));
return 0; return 0;
} }
@ -2810,11 +2816,11 @@ init_vbase_pointers (type, decl_ptr)
} }
/* get the virtual context (the vbase that directly contains the /* get the virtual context (the vbase that directly contains the
DECL_CLASS_CONTEXT of the FNDECL) that the given FNDECL is declared in, DECL_CONTEXT of the FNDECL) that the given FNDECL is declared in,
or NULL_TREE if there is none. or NULL_TREE if there is none.
FNDECL must come from a virtual table from a virtual base to ensure that FNDECL must come from a virtual table from a virtual base to ensure
there is only one possible DECL_CLASS_CONTEXT. that there is only one possible DECL_CONTEXT.
We know that if there is more than one place (binfo) the fndecl that the We know that if there is more than one place (binfo) the fndecl that the
declared, they all refer to the same binfo. See get_class_offset_1 for declared, they all refer to the same binfo. See get_class_offset_1 for
@ -2825,10 +2831,10 @@ virtual_context (fndecl, t, vbase)
tree fndecl, t, vbase; tree fndecl, t, vbase;
{ {
tree path; tree path;
if (get_base_distance (DECL_CLASS_CONTEXT (fndecl), t, 0, &path) < 0) if (get_base_distance (DECL_CONTEXT (fndecl), t, 0, &path) < 0)
{ {
/* DECL_CLASS_CONTEXT can be ambiguous in t. */ /* DECL_CONTEXT can be ambiguous in t. */
if (get_base_distance (DECL_CLASS_CONTEXT (fndecl), vbase, 0, &path) >= 0) if (get_base_distance (DECL_CONTEXT (fndecl), vbase, 0, &path) >= 0)
{ {
while (path) while (path)
{ {

9
gcc/cp/semantics.c
View File

@ -1990,13 +1990,6 @@ finish_member_declaration (decl)
} }
/* Mark the DECL as a member of the current class. */ /* Mark the DECL as a member of the current class. */
if (TREE_CODE (decl) == FUNCTION_DECL
|| DECL_FUNCTION_TEMPLATE_P (decl))
/* Historically, DECL_CONTEXT was not set for a FUNCTION_DECL in
finish_struct. Presumably it is already set as the function is
parsed. Perhaps DECL_CLASS_CONTEXT is already set, too? */
DECL_CLASS_CONTEXT (decl) = current_class_type;
else
DECL_CONTEXT (decl) = current_class_type; DECL_CONTEXT (decl) = current_class_type;
/* Put functions on the TYPE_METHODS list and everything else on the /* Put functions on the TYPE_METHODS list and everything else on the
@ -2722,7 +2715,7 @@ expand_body (fn)
DECL_COMDAT. */ DECL_COMDAT. */
&& (!at_eof || DECL_COMDAT (fn)) && (!at_eof || DECL_COMDAT (fn))
/* Or if this is a nested function. */ /* Or if this is a nested function. */
&& !hack_decl_function_context (fn)) && !decl_function_context (fn))
{ {
/* Give the function RTL now so that we can assign it to a /* Give the function RTL now so that we can assign it to a
function pointer, etc. */ function pointer, etc. */

14
gcc/cp/tree.c
View File

@ -1773,20 +1773,6 @@ vec_binfo_member (elem, vec)
return NULL_TREE; return NULL_TREE;
} }
/* Kludge around the fact that DECL_CONTEXT for virtual functions returns
the wrong thing for decl_function_context. Hopefully the uses in the
backend won't matter, since we don't need a static chain for local class
methods. FIXME! */
tree
hack_decl_function_context (decl)
tree decl;
{
if (TREE_CODE (decl) == FUNCTION_DECL && DECL_FUNCTION_MEMBER_P (decl))
return decl_function_context (TYPE_MAIN_DECL (DECL_CLASS_CONTEXT (decl)));
return decl_function_context (decl);
}
/* Returns the namespace that contains DECL, whether directly or /* Returns the namespace that contains DECL, whether directly or
indirectly. */ indirectly. */

8
gcc/cp/typeck.c
View File

@ -2615,18 +2615,18 @@ build_x_function_call (function, params, decl)
if (TREE_CODE (function) == FUNCTION_DECL if (TREE_CODE (function) == FUNCTION_DECL
|| DECL_FUNCTION_TEMPLATE_P (function)) || DECL_FUNCTION_TEMPLATE_P (function))
{ {
basetype = DECL_CLASS_CONTEXT (function); basetype = DECL_CONTEXT (function);
if (DECL_NAME (function)) if (DECL_NAME (function))
function = DECL_NAME (function); function = DECL_NAME (function);
else else
function = TYPE_IDENTIFIER (DECL_CLASS_CONTEXT (function)); function = TYPE_IDENTIFIER (DECL_CONTEXT (function));
} }
else if (TREE_CODE (function) == TREE_LIST) else if (TREE_CODE (function) == TREE_LIST)
{ {
my_friendly_assert (TREE_CODE (TREE_VALUE (function)) my_friendly_assert (TREE_CODE (TREE_VALUE (function))
== FUNCTION_DECL, 312); == FUNCTION_DECL, 312);
basetype = DECL_CLASS_CONTEXT (TREE_VALUE (function)); basetype = DECL_CONTEXT (TREE_VALUE (function));
function = TREE_PURPOSE (function); function = TREE_PURPOSE (function);
} }
else if (TREE_CODE (function) != IDENTIFIER_NODE) else if (TREE_CODE (function) != IDENTIFIER_NODE)
@ -6269,7 +6269,7 @@ expand_ptrmemfunc_cst (cst, delta, idx, pfn, delta2)
my_friendly_assert (TREE_CODE (fn) == FUNCTION_DECL, 0); my_friendly_assert (TREE_CODE (fn) == FUNCTION_DECL, 0);
/* The class that the function belongs to. */ /* The class that the function belongs to. */
fn_class = DECL_CLASS_CONTEXT (fn); fn_class = DECL_CONTEXT (fn);
/* The class that we're creating a pointer to member of. */ /* The class that we're creating a pointer to member of. */
ptr_class = TYPE_PTRMEMFUNC_OBJECT_TYPE (type); ptr_class = TYPE_PTRMEMFUNC_OBJECT_TYPE (type);

2
gcc/cp/typeck2.c
View File

@ -49,7 +49,7 @@ error_not_base_type (basetype, type)
tree basetype, type; tree basetype, type;
{ {
if (TREE_CODE (basetype) == FUNCTION_DECL) if (TREE_CODE (basetype) == FUNCTION_DECL)
basetype = DECL_CLASS_CONTEXT (basetype); basetype = DECL_CONTEXT (basetype);
cp_error ("type `%T' is not a base type for type `%T'", basetype, type); cp_error ("type `%T' is not a base type for type `%T'", basetype, type);
return error_mark_node; return error_mark_node;
} }