diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2018-07-16 14:11:47 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-16 14:11:47 +0000 |
| commit | 93bc357b34765dcc12709962a074c8001677c27b (patch) | |
| tree | 7e85803412e5bce56a7455172a6369b381871356 /gcc/ada | |
| parent | 7da8b07f30c465a46e41202d897d74ed2ceb8396 (diff) | |
| download | gcc-93bc357b34765dcc12709962a074c8001677c27b.zip gcc-93bc357b34765dcc12709962a074c8001677c27b.tar.gz gcc-93bc357b34765dcc12709962a074c8001677c27b.tar.bz2 | |
[Ada] Spurious error with null Abstract_State
This patch corrects the mechanism which ensures that a package with a null
Abstract_State does not introduce hidden state, by ignoring internal states
and variables because they do not represent the "source" hidden state.
2018-07-16 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* sem_util.adb (Check_No_Hidden_State): Ignore internally-generated
states and variables.
gcc/testsuite/
* gnat.dg/abstract_state1.adb, gnat.dg/abstract_state1.ads: New
testcase.
From-SVN: r262722
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_util.adb | 7 |
2 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1a14dae..9644f6f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-07-16 Hristian Kirtchev <kirtchev@adacore.com> + + * sem_util.adb (Check_No_Hidden_State): Ignore internally-generated + states and variables. + 2018-07-16 Piotr Trojanek <trojanek@adacore.com> * sinfo.ads, sinfo.adb (Withed_Body): Remove. diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 59687f5..b6b939c 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -3228,6 +3228,13 @@ package body Sem_Util is begin pragma Assert (Ekind_In (Id, E_Abstract_State, E_Variable)); + -- Nothing to do for internally-generated abstract states and variables + -- because they do not represent the hidden state of the source unit. + + if not Comes_From_Source (Id) then + return; + end if; + -- Find the proper context where the object or state appears Scop := Scope (Id); |