diff options
Diffstat (limited to 'gcc/ada/einfo.adb')
-rw-r--r-- | gcc/ada/einfo.adb | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index df32596..b45279f 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -419,10 +419,9 @@ package body Einfo is -- Has_Contiguous_Rep Flag181 -- Has_Xref_Entry Flag182 + -- Must_Be_On_Byte_Boundary Flag183 - -- Remaining flags are currently unused and available - - -- (unused) Flag183 + -- Note: there are no unused flags currently! -------------------------------- -- Attribute Access Functions -- @@ -1754,6 +1753,12 @@ package body Einfo is return Uint17 (Base_Type (Id)); end Modulus; + function Must_Be_On_Byte_Boundary (Id : E) return B is + begin + pragma Assert (Is_Type (Id)); + return Flag183 (Id); + end Must_Be_On_Byte_Boundary; + function Needs_Debug_Info (Id : E) return B is begin return Flag147 (Id); @@ -3712,6 +3717,12 @@ package body Einfo is Set_Uint17 (Id, V); end Set_Modulus; + procedure Set_Must_Be_On_Byte_Boundary (Id : E; V : B := True) is + begin + pragma Assert (Is_Type (Id)); + Set_Flag183 (Id, V); + end Set_Must_Be_On_Byte_Boundary; + procedure Set_Needs_Debug_Info (Id : E; V : B := True) is begin Set_Flag147 (Id, V); @@ -6249,6 +6260,7 @@ package body Einfo is W ("Kill_Tag_Checks", Flag34 (Id)); W ("Machine_Radix_10", Flag84 (Id)); W ("Materialize_Entity", Flag168 (Id)); + W ("Must_Be_On_Byte_Boundary", Flag183 (Id)); W ("Needs_Debug_Info", Flag147 (Id)); W ("Needs_No_Actuals", Flag22 (Id)); W ("Never_Set_In_Source", Flag115 (Id)); |