gcc/ada/
* exp_ch6.adb (Expand_Actuals): Whitespace cleanup.
* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Make minimum
accessibility a constant object.
Subp : Entity_Id;
Post_Call : out List_Id)
is
- Loc : constant Source_Ptr := Sloc (N);
- Actual : Node_Id;
- Formal : Entity_Id;
- N_Node : Node_Id;
- E_Actual : Entity_Id;
- E_Formal : Entity_Id;
+ Loc : constant Source_Ptr := Sloc (N);
+ Actual : Node_Id;
+ Formal : Entity_Id;
+ N_Node : Node_Id;
+ E_Actual : Entity_Id;
+ E_Formal : Entity_Id;
procedure Add_Call_By_Copy_Code;
-- For cases where the parameter must be passed by copy, this routine
then
-- Generate the minimum accessibility level object
- -- A60b : natural := natural'min(1, paramL);
+ -- A60b : constant natural := natural'min(1, paramL);
declare
Loc : constant Source_Ptr := Sloc (Body_Nod);
Defining_Identifier =>
Make_Temporary
(Loc, 'A', Extra_Accessibility (Form)),
+ Constant_Present => True,
Object_Definition => New_Occurrence_Of
(Standard_Natural, Loc),
Expression =>