diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2019-07-04 08:07:14 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-04 08:07:14 +0000 |
| commit | eedc5882dd635ce9cfaa650c790081b5130749af (patch) | |
| tree | 378e65c731cdde63ee335b0833e2d11500e0e943 /gcc/ada/sem_ch12.adb | |
| parent | 38818659c388491abe7ab11f8757c1ad2acd1506 (diff) | |
| download | gcc-eedc5882dd635ce9cfaa650c790081b5130749af.zip gcc-eedc5882dd635ce9cfaa650c790081b5130749af.tar.gz gcc-eedc5882dd635ce9cfaa650c790081b5130749af.tar.bz2 | |
[Ada] Minor reformatting
2019-07-04 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* exp_ch3.adb, exp_ch4.adb, exp_ch4.ads, exp_ch5.adb,
exp_ch7.adb, exp_ch9.adb, exp_ch11.adb, exp_unst.adb,
rtsfind.ads, sem_attr.adb, sem_ch10.adb, sem_ch12.adb,
sem_ch13.adb, sem_dim.adb, sem_disp.adb, xref_lib.adb: Minor
reformatting.
From-SVN: r273070
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 43beb83..0df4d96 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -6002,7 +6002,7 @@ package body Sem_Ch12 is Make_Parameter_Specification (Loc, Defining_Identifier => F1, Parameter_Type => New_Occurrence_Of (Op_Type, Loc))), - Result_Definition => New_Occurrence_Of (Ret_Type, Loc)); + Result_Definition => New_Occurrence_Of (Ret_Type, Loc)); if Is_Binary then Append_To (Parameter_Specifications (Spec), @@ -14103,7 +14103,6 @@ package body Sem_Ch12 is ------------------------ procedure Preanalyze_Actuals (N : Node_Id; Inst : Entity_Id := Empty) is - procedure Perform_Appropriate_Analysis (N : Node_Id); -- Determine if the actuals we are analyzing come from a generic -- instantiation that is a library unit and dispatch accordingly. @@ -14120,15 +14119,17 @@ package body Sem_Ch12 is if Present (Inst) and then Is_Compilation_Unit (Inst) then Preanalyze (N); - else Analyze (N); end if; end Perform_Appropriate_Analysis; + -- Local variables + + Errs : constant Nat := Serious_Errors_Detected; + Assoc : Node_Id; Act : Node_Id; - Errs : constant Nat := Serious_Errors_Detected; Cur : Entity_Id := Empty; -- Current homograph of the instance name |