diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-11-29 13:14:44 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-05 11:32:36 +0000 |
| commit | 82faa04d974fe8691b5d5b4384c466eb5c5593db (patch) | |
| tree | 999f515bfb8a672cb47546fe1921e0b385885908 /gcc | |
| parent | e2642e2b2c13b64d3d8453bc611fee20f73aa420 (diff) | |
| download | gcc-82faa04d974fe8691b5d5b4384c466eb5c5593db.zip gcc-82faa04d974fe8691b5d5b4384c466eb5c5593db.tar.gz gcc-82faa04d974fe8691b5d5b4384c466eb5c5593db.tar.bz2 | |
[Ada] Fix layout of parameters in calls to Predef_Spec_Or_Body
gcc/ada/
* exp_ch3.adb (Make_Eq_Body, Make_Neq_Body,
Make_Predefined_Primitive_Eq_Spec,
Make_Predefined_Primitive_Specs): Fix whitespace.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index e1e3232..5fe0fc7 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -9800,9 +9800,9 @@ package body Exp_Ch3 is begin Decl := Predef_Spec_Or_Body (Loc, - Tag_Typ => Typ, - Name => Eq_Name, - Profile => New_List ( + Tag_Typ => Typ, + Name => Eq_Name, + Profile => New_List ( Make_Parameter_Specification (Loc, Defining_Identifier => Make_Defining_Identifier (Loc, Name_X), @@ -10193,9 +10193,9 @@ package body Exp_Ch3 is Decl := Predef_Spec_Or_Body (Loc, - Tag_Typ => Tag_Typ, - Name => Chars (Renaming_Prim), - Profile => New_List ( + Tag_Typ => Tag_Typ, + Name => Chars (Renaming_Prim), + Profile => New_List ( Make_Parameter_Specification (Loc, Defining_Identifier => Make_Defining_Identifier (Loc, Chars (Left_Op)), @@ -10450,9 +10450,9 @@ package body Exp_Ch3 is if Eq_Needed then Eq_Spec := Predef_Spec_Or_Body (Loc, - Tag_Typ => Tag_Typ, - Name => Eq_Name, - Profile => New_List ( + Tag_Typ => Tag_Typ, + Name => Eq_Name, + Profile => New_List ( Make_Parameter_Specification (Loc, Defining_Identifier => Make_Defining_Identifier (Loc, Name_X), @@ -10462,7 +10462,7 @@ package body Exp_Ch3 is Defining_Identifier => Make_Defining_Identifier (Loc, Name_Y), Parameter_Type => New_Occurrence_Of (Tag_Typ, Loc))), - Ret_Type => Standard_Boolean); + Ret_Type => Standard_Boolean); Append_To (Predef_List, Eq_Spec); if Has_Predef_Eq_Renaming then @@ -10514,9 +10514,9 @@ package body Exp_Ch3 is -- Spec of _Size Append_To (Res, Predef_Spec_Or_Body (Loc, - Tag_Typ => Tag_Typ, - Name => Name_uSize, - Profile => New_List ( + Tag_Typ => Tag_Typ, + Name => Name_uSize, + Profile => New_List ( Make_Parameter_Specification (Loc, Defining_Identifier => Make_Defining_Identifier (Loc, Name_X), Parameter_Type => New_Occurrence_Of (Tag_Typ, Loc))), |