sem_ch12.adb (Instantiate_Package_Body): Protect against double instantiation of…

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

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

From-SVN: r47556

gcc/ada/ChangeLog

 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:
 	(Analyze_generic_subprogram_Declaration): Set outer_generic_scope,
 	to prevent freezing within formal packages.

gcc/ada/sem_ch12.adb

@@ -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