From: charlet Date: Wed, 29 Jan 2014 16:21:25 +0000 (+0000) Subject: 2014-01-29 Hristian Kirtchev X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=5f1c8ecc109db66f36635f89d93400eb76f4ff73;p=thirdparty%2Fgcc.git 2014-01-29 Hristian Kirtchev * sem_util.adb (Find_Placement_In_State_Space): Assume that the default placement is not in a package. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207268 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d0fee8faede7..f0cf6b87d4b9 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2014-01-29 Hristian Kirtchev + + * sem_util.adb (Find_Placement_In_State_Space): Assume that the default + placement is not in a package. + 2014-01-29 Hristian Kirtchev * 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 2f85e82fa6a6..19ba490b2161 100644 --- 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