diff options
| author | Robert Dewar <dewar@adacore.com> | 2015-05-22 12:53:21 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 14:53:21 +0200 |
| commit | f280dd8f6d4e3f95357707c3064253cb87698b66 (patch) | |
| tree | b66b44d98a027fc0c33dc1f86e1a61404d3d06d2 /gcc/ada/exp_ch2.adb | |
| parent | 878e58c85ed67d4090e7e04d27695e892bc78580 (diff) | |
| download | gcc-f280dd8f6d4e3f95357707c3064253cb87698b66.zip gcc-f280dd8f6d4e3f95357707c3064253cb87698b66.tar.gz gcc-f280dd8f6d4e3f95357707c3064253cb87698b66.tar.bz2 | |
exp_ch5.adb, [...]: This is a general change that deals with the fact that most of the special...
2015-05-22 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, layout.adb, einfo.adb, einfo.ads, sem_prag.adb,
freeze.adb, freeze.ads, sem_util.adb, sem_util.ads, exp_ch2.adb,
exp_ch4.adb, errout.adb, exp_aggr.adb, sem_ch13.adb: This is a general
change that deals with the fact that most of the special coding for
Atomic should also apply to the case of Volatile_Full_Access.
A new attribute Is_Atomic_Or_VFA is introduced, and many of the
references to Is_Atomic now use this new attribute.
From-SVN: r223560
Diffstat (limited to 'gcc/ada/exp_ch2.adb')
| -rw-r--r-- | gcc/ada/exp_ch2.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index 0aa7878..b926e10 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -396,7 +396,8 @@ package body Exp_Ch2 is Write_Eol; end if; - -- Set Atomic_Sync_Required if necessary for atomic variable + -- Set Atomic_Sync_Required if necessary for atomic variable. Note that + -- this processing does NOT apply to Volatile_Full_Access variables. if Nkind_In (N, N_Identifier, N_Expanded_Name) and then Ekind (E) = E_Variable |