diff options
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 7c18f81..5a47a5a 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -342,9 +342,9 @@ package body Exp_Ch3 is -- typSO provides result of 'Output attribute -- typPI provides result of 'Put_Image attribute -- - -- The following entries are additionally present for non-limited tagged - -- types, and implement additional dispatching operations for predefined - -- operations: + -- The following entries implement additional dispatching operations for + -- predefined operations. Deep finalization is present on all tagged types; + -- the others only on nonlimited tagged types: -- -- _equality implements "=" operator -- _assign implements assignment operation @@ -401,7 +401,7 @@ package body Exp_Ch3 is (Tag_Typ : Entity_Id; Renamed_Eq : Entity_Id) return List_Id; -- Create the bodies of the predefined primitives that are described in - -- Predefined_Primitive_Specs. When not empty, Renamed_Eq must denote + -- Make_Predefined_Primitive_Specs. When not empty, Renamed_Eq must denote -- the defining unit name of the type's predefined equality as returned -- by Make_Predefined_Primitive_Specs. @@ -5956,7 +5956,7 @@ package body Exp_Ch3 is exception when RE_Not_Available => - return; + null; end Expand_Freeze_Enumeration_Type; ------------------------------- @@ -6908,8 +6908,8 @@ package body Exp_Ch3 is procedure Count_Default_Sized_Task_Stacks (Typ : Entity_Id; - Pri_Stacks : out Int; - Sec_Stacks : out Int); + Pri_Stacks : out Nat; + Sec_Stacks : out Nat); -- Count the number of default-sized primary and secondary task stacks -- required for task objects contained within type Typ. If the number of -- task objects contained within the type is not known at compile time @@ -7186,8 +7186,8 @@ package body Exp_Ch3 is procedure Count_Default_Sized_Task_Stacks (Typ : Entity_Id; - Pri_Stacks : out Int; - Sec_Stacks : out Int) + Pri_Stacks : out Nat; + Sec_Stacks : out Nat) is Component : Entity_Id; @@ -7259,8 +7259,8 @@ package body Exp_Ch3 is while Present (Component) loop declare - P : Int; - S : Int; + P : Nat; + S : Nat; begin Count_Default_Sized_Task_Stacks (Etype (Component), P, S); @@ -7678,7 +7678,7 @@ package body Exp_Ch3 is and then not (Is_Array_Type (Typ) and then Has_Init_Expression (N)) then declare - PS_Count, SS_Count : Int; + PS_Count, SS_Count : Nat; begin Count_Default_Sized_Task_Stacks (Typ, PS_Count, SS_Count); Increment_Primary_Stack_Count (PS_Count); @@ -9239,7 +9239,7 @@ package body Exp_Ch3 is exception when RE_Not_Available => - return; + null; end Expand_N_Object_Declaration; --------------------------------- @@ -9501,7 +9501,7 @@ package body Exp_Ch3 is exception when RE_Not_Available => - return; + null; end Expand_Tagged_Root; ------------------------------ |