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

lib-xref.adb (Generate_Definition, [...]): Treat the internal entity created for the declaration of a child subprogram... 

2005-11-14  Ed Schonberg  <schonberg@adacore.com>

	* lib-xref.adb (Generate_Definition, Generate_Reference): Treat the
	internal entity created for the declaration of a child subprogram body
	with no spec as coming from source, to generate proper cross-reference
	information.

From-SVN: r106988
This commit is contained in:
Ed Schonberg 2005-11-15 15:00:18 +01:00 committed by Arnaud Charlet
parent 70b352b52f
commit dff0475fb5
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gcc/ada/lib-xref.adb
View File

@ -111,8 +111,13 @@ package body Lib.Xref is
if Opt.Xref_Active
-- Definition must come from source
-- We make an exception for subprogram child units that have no
-- spec. For these we generate a subprogram declaration for library
-- use, and the corresponding entity does not come from source.
-- Nevertheless, all references will be attached to it and we have
-- to treat is as coming from user code.
and then Comes_From_Source (E)
and then (Comes_From_Source (E) or else Is_Child_Unit (E))
-- And must have a reasonable source location that is not
-- within an instance (all entities in instances are ignored)
@ -518,6 +523,14 @@ package body Lib.Xref is
end if;
end loop;
-- The internally created defining entity for a child subprogram
-- that has no previous spec has valid references.
elsif Is_Overloadable (E)
and then Is_Child_Unit (E)
then
Ent := E;
-- Record components of discriminated subtypes or derived types
-- must be treated as references to the original component.