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

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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d0fee8faede70d6f022f34d741853518cb8d8075..f0cf6b87d4b9ad84c961ecf1d7728b751da89d84 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 2f85e82fa6a6596b2d0449e35fcc7bd8744fed2d..19ba490b21615e356281613821f31c4eb3fc15f8 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/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