sem.adb (Walk_Library_Items): Include bodies in the list of units to traverse...

	* sem.adb (Walk_Library_Items): Include bodies in the list of units to
	traverse, to account for front-end inlining and instantiations in a
	spec or in the main unit.

From-SVN: r148695

gcc/ada/sem.adb

@@ -1514,9 +1514,9 @@ package body Sem is
       --  Calls Action, with some validity checks
 
       procedure Do_Unit_And_Dependents (CU : Node_Id; Item : Node_Id);
-      --  Calls Do_Action, first on the units with'ed by this one, then on this
-      --  unit. If it's an instance body, do the spec first. If it's an
-      --  instance spec, do the body last.
+      --  Calls Do_Action, first on the units with'ed by this one, then on
+      --  this unit. If it's an instance body, do the spec first. If it is
+      --  an instance spec, do the body last.
 
       ---------------
       -- Do_Action --
@@ -1539,12 +1539,16 @@ package body Sem is
                  N_Generic_Function_Renaming_Declaration |
                  N_Generic_Package_Renaming_Declaration  |
                  N_Generic_Procedure_Renaming_Declaration =>
-               null;  --  Specs are OK
+
+               --  Specs are OK
+
+               null;
+
+            when N_Package_Body  =>
 
                --  Package bodies are processed immediately after the
                --  corresponding spec.
 
-            when N_Package_Body  =>
                null;
 
             when  N_Subprogram_Body =>