diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-05-22 12:54:59 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 14:54:59 +0200 |
| commit | 57abdadd18b3addfc32fb32086862db3f8fdd7b1 (patch) | |
| tree | 445e481b9a28aa6561262767a4c380f99ff7fa77 /gcc/ada/exp_pakd.adb | |
| parent | f280dd8f6d4e3f95357707c3064253cb87698b66 (diff) | |
| download | gcc-57abdadd18b3addfc32fb32086862db3f8fdd7b1.zip gcc-57abdadd18b3addfc32fb32086862db3f8fdd7b1.tar.gz gcc-57abdadd18b3addfc32fb32086862db3f8fdd7b1.tar.bz2 | |
einfo.ads (Has_Volatile_Full_Access): Rename into...
2015-05-22 Eric Botcazou <ebotcazou@adacore.com>
* einfo.ads (Has_Volatile_Full_Access): Rename into...
(Is_Volatile_Full_Access): ...this.
(Set_Has_Volatile_Full_Access): Rename into...
(Set_Is_Volatile_Full_Access): ...this.
* einfo.adb (Has_Volatile_Full_Access): Rename into...
(Is_Volatile_Full_Access): ...this.
(Set_Has_Volatile_Full_Access): Rename into...
(Set_Is_Volatile_Full_Access): ...this.
(Is_Atomic_Or_VFA): Adjust to above renaming.
* errout.adb (Special_Msg_Delete): Likewise.
* exp_pakd.adb (Install_PAT): Likewise.
* freeze.adb (Freeze_Array_Type): Likewise.
* sem_ch8.adb (Analyze_Object_Renaming): Likewise.
* sem_ch13.adb (Inherit_Delayed_Rep_Aspects): Likewise.
(Inherit_Aspects_At_Freeze_Point): Likewise.
* sem_prag.adb (Set_Atomic_VFA): Likewise.
(Process_Atomic_Independent_Shared_Volatile): Likewise.
* sem_util.adb (Is_Atomic_Or_VFA_Object): Likewise.
From-SVN: r223561
Diffstat (limited to 'gcc/ada/exp_pakd.adb')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 1e899ee..d4968a3 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -537,11 +537,11 @@ package body Exp_Pakd is -- Propagate representation aspects - Set_Is_Atomic (PAT, Is_Atomic (Typ)); - Set_Is_Independent (PAT, Is_Independent (Typ)); - Set_Has_Volatile_Full_Access (PAT, Has_Volatile_Full_Access (Typ)); - Set_Is_Volatile (PAT, Is_Volatile (Typ)); - Set_Treat_As_Volatile (PAT, Treat_As_Volatile (Typ)); + Set_Is_Atomic (PAT, Is_Atomic (Typ)); + Set_Is_Independent (PAT, Is_Independent (Typ)); + Set_Is_Volatile (PAT, Is_Volatile (Typ)); + Set_Is_Volatile_Full_Access (PAT, Is_Volatile_Full_Access (Typ)); + Set_Treat_As_Volatile (PAT, Treat_As_Volatile (Typ)); -- For a non-bit-packed array, propagate reverse storage order -- flag from original base type to packed array base type. |