sem_util.adb (Find_Placement_In_State_Space): Assume that the default placement…

sem_util.adb (Find_Placement_In_State_Space): Assume that the default placement is not in a package.

2014-01-29  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_util.adb (Find_Placement_In_State_Space): Assume that the default
	placement is not in a package.

From-SVN: r207268

gcc/ada/ChangeLog

 2014-01-29  Hristian Kirtchev  <kirtchev@adacore.com>
 
+	* sem_util.adb (Find_Placement_In_State_Space): Assume that the default
+	placement is not in a package.
+
+2014-01-29  Hristian Kirtchev  <kirtchev@adacore.com>
+
 	* sem_util.adb (Has_Enabled_Property): Compare the character field of
 	the sole property.
 

gcc/ada/sem_util.adb

@@ -5851,7 +5851,8 @@ package body Sem_Util is
    begin
       --  Assume that the item does not appear in the state space of a package
 
-      Pack_Id := Empty;
+      Placement := Not_In_Package;
+      Pack_Id   := Empty;
 
       --  Climb the scope stack and examine the enclosing context