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

sem_ch10.adb (Analyze_With_Clause): If the unit is a subprogram instantiation...

Browse Source 
2006-02-17  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch10.adb (Analyze_With_Clause): If the unit is a subprogram
	instantiation, the corresponding entity is the related_instance of the
	wrapper package created for the instance.

From-SVN: r111191
This commit is contained in:
Ed Schonberg 2006-02-17 17:07:43 +01:00 committed by Arnaud Charlet
parent f58291a114
commit 9af38f0c56
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/ada/sem_ch10.adb
View File

@ -2180,16 +2180,11 @@ package body Sem_Ch10 is
elsif Unit_Kind in N_Subprogram_Instantiation then
-- Instantiation node is replaced with a package that contains
-- renaming declarations and instance itself. The subprogram
-- Instance is declared in the visible part of the wrapper package.
-- Instantiation node is replaced with a wrapper package.
-- Retrieve the visible subprogram created by the instance from
-- the corresponding attribute of the wrapper.
E_Name := First_Entity (Defining_Entity (U));
while Present (E_Name) loop
exit when Is_Subprogram (E_Name)
and then Is_Generic_Instance (E_Name);
E_Name := Next_Entity (E_Name);
end loop;
E_Name := Related_Instance (Defining_Entity (U));
elsif Unit_Kind = N_Package_Renaming_Declaration
or else Unit_Kind in N_Generic_Renaming_Declaration