From 57abdadd18b3addfc32fb32086862db3f8fdd7b1 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 22 May 2015 12:54:59 +0000 Subject: einfo.ads (Has_Volatile_Full_Access): Rename into... 2015-05-22 Eric Botcazou * 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 --- gcc/ada/einfo.adb | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'gcc/ada/einfo.adb') diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 9de5ce9..64426ec 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)); -- cgit v1.1