diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2015-10-27 11:23:07 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-27 12:23:07 +0100 |
| commit | cdabbb526556b8779df24df30b837dfe61554694 (patch) | |
| tree | c7a204726695d025e7236f2e99f0d8da980c97b0 /gcc/ada/exp_ch6.adb | |
| parent | f6f401140a4a93899d25eeb05a537d35f4324f6f (diff) | |
| download | gcc-cdabbb526556b8779df24df30b837dfe61554694.zip gcc-cdabbb526556b8779df24df30b837dfe61554694.tar.gz gcc-cdabbb526556b8779df24df30b837dfe61554694.tar.bz2 | |
lib-xref-spark_specific.adb, [...]: Minor reformatting.
2015-10-27 Hristian Kirtchev <kirtchev@adacore.com>
* lib-xref-spark_specific.adb, a-dirval-mingw.adb, exp_ch6.adb,
sem_ch8.adb, s-os_lib.adb: Minor reformatting.
From-SVN: r229419
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index dc03396..deaa8ea 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -8332,16 +8332,16 @@ package body Exp_Ch6 is Func_Id : constant Entity_Id := Entity (Name (N)); Func_Decl : constant Node_Id := Unit_Declaration_Node (Func_Id); Par : constant Node_Id := Parent (N); - Loc : constant Source_Ptr := Sloc (Par); Proc_Id : constant Entity_Id := Defining_Entity (Next (Func_Decl)); + Loc : constant Source_Ptr := Sloc (Par); Actuals : List_Id; Last_Formal : Entity_Id; begin - -- The actuals may be given by named associations, so the added - -- actual that is the target of the return value of the call must - -- be a named association as well, so we retrieve the name of the - -- generated out_formal. + -- The actuals may be given by named associations, so the added actual + -- that is the target of the return value of the call must be a named + -- association as well, so we retrieve the name of the generated + -- out_formal. Last_Formal := First_Formal (Proc_Id); while Present (Next_Formal (Last_Formal)) loop @@ -8366,8 +8366,10 @@ package body Exp_Ch6 is if Nkind (Par) = N_Assignment_Statement then Append_To (Actuals, Make_Parameter_Association (Loc, - Selector_Name => Make_Identifier (Loc, Chars (Last_Formal)), - Explicit_Actual_Parameter => Name (Par))); + Selector_Name => + Make_Identifier (Loc, Chars (Last_Formal)), + Explicit_Actual_Parameter => Name (Par))); + Rewrite (Par, Make_Procedure_Call_Statement (Loc, Name => New_Occurrence_Of (Proc_Id, Loc), @@ -8404,9 +8406,11 @@ package body Exp_Ch6 is Append_To (Actuals, Make_Parameter_Association (Loc, - Selector_Name => Make_Identifier (Loc, Chars (Last_Formal)), - Explicit_Actual_Parameter => - New_Occurrence_Of (Temp_Id, Loc))); + Selector_Name => + Make_Identifier (Loc, Chars (Last_Formal)), + Explicit_Actual_Parameter => + New_Occurrence_Of (Temp_Id, Loc))); + Call := Make_Procedure_Call_Statement (Loc, Name => New_Occurrence_Of (Proc_Id, Loc), |