exp_ch9.adb: Minor reformatting

2008-07-30 Robert Dewar <dewar@adacore.com> * exp_ch9.adb: Minor reformatting From-SVN: r138328

exp_ch9.adb: Minor reformatting
2008-07-30 Robert Dewar <dewar@adacore.com> * exp_ch9.adb: Minor reformatting From-SVN: r138328
1adfc03b · Robert Dewar · Arnaud Charlet · 35596784 · 1adfc03b
Commit 1adfc03b authored Jul 30, 2008 by Robert Dewar Committed by Arnaud Charlet Jul 30, 2008
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

gcc/ada/exp_ch9.adb
+2 -2

No files found.
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -1860,7 +1860,6 @@ package body Exp_Ch9 is
            declare
               Obj_Param : constant Node_Id :=
                             First (Parameter_Specifications (Iface_Op_Spec));
-
            begin
               if not Out_Present (Obj_Param)
                 and then Nkind (Parameter_Type (Obj_Param)) /=
@@ -2044,7 +2043,8 @@ package body Exp_Ch9 is
            Obj_Param :=
              Make_Parameter_Specification (Loc,
                Defining_Identifier =>
-                  Make_Defining_Identifier (Loc, Name_uO),
+                  Make_Defining_Identifier (Loc,
+                    Chars => Name_uO),
                In_Present          => In_Present  (First_Param),
                Out_Present         => Out_Present (First_Param),
                Parameter_Type      => Obj_Param_Typ);