diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-12-16 10:33:45 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-12-16 10:33:45 +0000 |
| commit | d8468b976bb2721c32368e2a80591e77ca49250f (patch) | |
| tree | d7fd7ad92d568545f6796febd4fa09361ad9e870 /gcc/ada/sem_util.ads | |
| parent | bee69f33688293b0c5afdf737d03aca12a8fccb4 (diff) | |
| download | gcc-d8468b976bb2721c32368e2a80591e77ca49250f.zip gcc-d8468b976bb2721c32368e2a80591e77ca49250f.tar.gz gcc-d8468b976bb2721c32368e2a80591e77ca49250f.tar.bz2 | |
[Ada] Small consistency fix for Volatile_Full_Access objects
2019-12-16 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* sem_util.adb (Is_Atomic_Or_VFA_Object): Also return true for
components whose type is Volatile_Full_Access or which are
subject to the aspect/pragma individually.
* sem_util.ads (Is_Atomic_Object_Entity): Small comment fix.
From-SVN: r279420
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 89fa579..a665b5e 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -1535,7 +1535,7 @@ package Sem_Util is function Is_Atomic_Object_Entity (Id : Entity_Id) return Boolean; -- Determine whether arbitrary entity Id denotes an atomic object as per - -- Ada RM C.6(12). + -- Ada RM C.6(7). function Is_Atomic_Or_VFA_Object (N : Node_Id) return Boolean; -- Determine whether arbitrary node N denotes a reference to an object |