diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-22 12:54:59 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-22 12:54:59 +0000 |
commit | 4bf2acc919632a199ef34ed854ce7826c502ca22 (patch) | |
tree | 445e481b9a28aa6561262767a4c380f99ff7fa77 /gcc/ada/einfo.adb | |
parent | 2fe893b952031310e96bba64f19bf6530fd2b2e3 (diff) | |
download | gcc-4bf2acc919632a199ef34ed854ce7826c502ca22.tar.gz |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223561 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/einfo.adb')
-rw-r--r-- | gcc/ada/einfo.adb | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 9de5ce9c259..64426ec3af6 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -592,7 +592,7 @@ package body Einfo is -- Has_Nested_Subprogram Flag282 -- Is_Uplevel_Referenced_Entity Flag283 -- Is_Unimplemented Flag284 - -- Has_Volatile_Full_Access Flag285 + -- Is_Volatile_Full_Access Flag285 -- Needs_Typedef Flag286 -- (unused) Flag253 @@ -1856,11 +1856,6 @@ package body Einfo is return Flag87 (Implementation_Base_Type (Id)); end Has_Volatile_Components; - function Has_Volatile_Full_Access (Id : E) return B is - begin - return Flag285 (Id); - end Has_Volatile_Full_Access; - function Has_Xref_Entry (Id : E) return B is begin return Flag182 (Id); @@ -2528,6 +2523,11 @@ package body Einfo is end if; end Is_Volatile; + function Is_Volatile_Full_Access (Id : E) return B is + begin + return Flag285 (Id); + end Is_Volatile_Full_Access; + function Itype_Printed (Id : E) return B is begin pragma Assert (Is_Itype (Id)); @@ -4758,11 +4758,6 @@ package body Einfo is Set_Flag87 (Id, V); end Set_Has_Volatile_Components; - procedure Set_Has_Volatile_Full_Access (Id : E; V : B := True) is - begin - Set_Flag285 (Id, V); - end Set_Has_Volatile_Full_Access; - procedure Set_Has_Xref_Entry (Id : E; V : B := True) is begin Set_Flag182 (Id, V); @@ -5498,6 +5493,11 @@ package body Einfo is Set_Flag16 (Id, V); end Set_Is_Volatile; + procedure Set_Is_Volatile_Full_Access (Id : E; V : B := True) is + begin + Set_Flag285 (Id, V); + end Set_Is_Volatile_Full_Access; + procedure Set_Itype_Printed (Id : E; V : B := True) is begin pragma Assert (Is_Itype (Id)); @@ -7335,7 +7335,7 @@ package body Einfo is function Is_Atomic_Or_VFA (Id : E) return B is begin - return Is_Atomic (Id) or else Has_Volatile_Full_Access (Id); + return Is_Atomic (Id) or else Is_Volatile_Full_Access (Id); end Is_Atomic_Or_VFA; ------------------ @@ -8750,7 +8750,6 @@ package body Einfo is W ("Has_Uplevel_Reference", Flag215 (Id)); W ("Has_Visible_Refinement", Flag263 (Id)); W ("Has_Volatile_Components", Flag87 (Id)); - W ("Has_Volatile_Full_Access", Flag285 (Id)); W ("Has_Xref_Entry", Flag182 (Id)); W ("In_Package_Body", Flag48 (Id)); W ("In_Private_Part", Flag45 (Id)); @@ -8865,6 +8864,7 @@ package body Einfo is W ("Is_Visible_Formal", Flag206 (Id)); W ("Is_Visible_Lib_Unit", Flag116 (Id)); W ("Is_Volatile", Flag16 (Id)); + W ("Is_Volatile_Full_Access", Flag285 (Id)); W ("Itype_Printed", Flag202 (Id)); W ("Kill_Elaboration_Checks", Flag32 (Id)); W ("Kill_Range_Checks", Flag33 (Id)); |