mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-08 17:10:38 +08:00
Code Issues Packages Projects Releases Wiki Activity

sem_ch12.adb (Instantiate_Package_Body): Protect against double instantiation of a body that contains an inlined body.

Browse Source 
* sem_ch12.adb (Instantiate_Package_Body): Protect against double
	instantiation of a body that contains an inlined body.

From-SVN: r47556
This commit is contained in:
Ed Schonberg 2001-12-03 19:06:53 +00:00 committed by Geert Bosch
parent 3bd6c10030
commit 13f08f0368
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2001-12-03 Ed Schonberg <schonber@gnat.com>
* sem_ch12.adb (Instantiate_Package_Body): Protect against double
instantiation of a body that contains an inlined body.
2001-12-03 Ed Schonberg <schonber@gnat.com>
* sem_ch12.adb:

8
gcc/ada/sem_ch12.adb
View File

@ -6503,6 +6503,14 @@ package body Sem_Ch12 is
begin
Gen_Body_Id := Corresponding_Body (Gen_Decl);
-- The instance body may already have been processed, as the parent
-- of another instance that is inlined. (Load_Parent_Of_Generic).
if Present (Corresponding_Body (Instance_Spec (Inst_Node))) then
return;
end if;
Expander_Mode_Save_And_Set (Body_Info.Expander_Status);
if No (Gen_Body_Id) then