diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2014-01-29 16:21:25 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-29 17:21:25 +0100 |
| commit | 385e1a992afbbff6049b69325f211fad49e0231a (patch) | |
| tree | 302ab4fae60f031fca58dc978696e3f0849f74b9 | |
| parent | 159a5104f71942607878e5365e13ad8d27864321 (diff) | |
| download | gcc-385e1a992afbbff6049b69325f211fad49e0231a.zip gcc-385e1a992afbbff6049b69325f211fad49e0231a.tar.gz gcc-385e1a992afbbff6049b69325f211fad49e0231a.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_util.adb | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d0fee8f..f0cf6b8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 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. diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 2f85e82..19ba490 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 |