+2009-04-07 Thomas Quinot <quinot@adacore.com>
+
+ * exp_ch3.adb: Minor rewording (comments)
+
+2009-04-07 Robert Dewar <dewar@adacore.com>
+
+ * exp_disp.adb: Minor reformatting
+
2009-04-07 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Test the
-- Loop through visible declarations of task types and protected
-- types moving any expanded code from the spec to the body of the
- -- init procedure
+ -- init procedure.
if Is_Task_Record_Type (Rec_Type)
or else Is_Protected_Record_Type (Rec_Type)
-- for public types in case Initialize_Scalars applies to a client.
-- However, such a procedure is not needed in the case where either
-- of restrictions No_Initialize_Scalars or No_Default_Initialization
- -- apply. No_Initialize_Scalars excludes the possibility of using
+ -- applies. No_Initialize_Scalars excludes the possibility of using
-- Initialize_Scalars in any partition, and No_Default_Initialization
-- implies that no initialization should ever be done for objects of
-- the type, so is incompatible with Initialize_Scalars.
Prefix => New_Reference_To (Prim, Loc),
Attribute_Name => Name_Unrestricted_Access))));
- -- Register copy of the pointer to the 'size primitive in the TSD.
+ -- Register copy of the pointer to the 'size primitive in the TSD
if Chars (Prim) = Name_uSize
and then RTE_Record_Component_Available (RE_Size_Func)
procedure Set_Fixed_Prim (Pos : Nat) is
begin
- pragma Assert (Pos >= 0 and then Pos <= Count_Prim);
+ pragma Assert (Pos <= Count_Prim);
Fixed_Prim (Pos) := True;
exception
when Constraint_Error =>