From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 29 Nov 2021 12:14:44 +0000 (+0100)
Subject: [Ada] Fix layout of parameters in calls to Predef_Spec_Or_Body
X-Git-Tag: basepoints/gcc-13~2073
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=82faa04d974fe8691b5d5b4384c466eb5c5593db;p=thirdparty%2Fgcc.git

[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.
---

diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index e1e323227c15..5fe0fc76992d 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))),