diff options
Diffstat (limited to 'gcc/ada/einfo.ads')
-rw-r--r-- | gcc/ada/einfo.ads | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 1426c4fccb8..b27405f2477 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -3943,6 +3943,12 @@ package Einfo is -- the Bit_Order aspect must be set to the same value (either explicitly -- or as the target default value). +-- Rewritten_For_C (Flag287) +-- Defined on functions that return a constrained array type, when +-- Modify_Tree_For_C is set. indicates that a procedure with an extra +-- out parameter has been created for it, and calls must be rewritten as +-- calls to the new procedure. + -- RM_Size (Uint13) -- Defined in all type and subtype entities. Contains the value of -- type'Size as defined in the RM. See also the Esize field and @@ -5908,6 +5914,7 @@ package Einfo is -- Return_Present (Flag54) -- Returns_By_Ref (Flag90) -- Returns_Limited_View (Flag134) (non-generic case only) + -- Rewritten_For_C (Flag287) -- Sec_Stack_Needed_For_Return (Flag167) -- SPARK_Pragma_Inherited (Flag265) -- Uses_Sec_Stack (Flag95) @@ -7078,6 +7085,7 @@ package Einfo is function Returns_Limited_View (Id : E) return B; function Reverse_Bit_Order (Id : E) return B; function Reverse_Storage_Order (Id : E) return B; + function Rewritten_For_C (Id : E) return B; function RM_Size (Id : E) return U; function Scalar_Range (Id : E) return N; function Scale_Value (Id : E) return U; @@ -7743,6 +7751,7 @@ package Einfo is procedure Set_Returns_Limited_View (Id : E; V : B := True); procedure Set_Reverse_Bit_Order (Id : E; V : B := True); procedure Set_Reverse_Storage_Order (Id : E; V : B := True); + procedure Set_Rewritten_For_C (Id : E; V : B := True); procedure Set_RM_Size (Id : E; V : U); procedure Set_Scalar_Range (Id : E; V : N); procedure Set_Scale_Value (Id : E; V : U); @@ -8564,6 +8573,7 @@ package Einfo is pragma Inline (Returns_Limited_View); pragma Inline (Reverse_Bit_Order); pragma Inline (Reverse_Storage_Order); + pragma Inline (Rewritten_For_C); pragma Inline (RM_Size); pragma Inline (Scalar_Range); pragma Inline (Scale_Value); @@ -9024,6 +9034,7 @@ package Einfo is pragma Inline (Set_Returns_Limited_View); pragma Inline (Set_Reverse_Bit_Order); pragma Inline (Set_Reverse_Storage_Order); + pragma Inline (Set_Rewritten_For_C); pragma Inline (Set_RM_Size); pragma Inline (Set_Scalar_Range); pragma Inline (Set_Scale_Value); |