exp_aggr.adb: Minor reformatting

2008-07-31  Robert Dewar  <dewar@adacore.com>

	* exp_aggr.adb: Minor reformatting

From-SVN: r138419

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 84aed96d9b9618c2487fb6356103428b3088edf7..eaff8e89a9eb9e3a61b03f2ac4d1af08aafe700b 100644 (file)
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -403,20 +403,20 @@ package body Exp_Aggr is
             return True;
          end if;
 
-         --  One-component aggregates are suspicious, and if the context
-         --  type is an object declaration with non-static bounds it will
-         --  trip gcc; such an aggregate must be expanded into a single
-         --  assignment.
+         --  One-component aggregates are suspicious, and if the context type
+         --  is an object declaration with non-static bounds it will trip gcc;
+         --  such an aggregate must be expanded into a single assignment.
 
          if Hiv = Lov
            and then Nkind (Parent (N)) = N_Object_Declaration
          then
             declare
                Index_Type : constant Entity_Id :=
-                       Etype
-                         (First_Index
-                           (Etype (Defining_Identifier (Parent (N)))));
-               Indx : Node_Id;
+                              Etype
+                                (First_Index
+                                   (Etype (Defining_Identifier (Parent (N)))));
+               Indx       : Node_Id;
+
             begin
                if not Compile_Time_Known_Value (Type_Low_Bound (Index_Type))
                   or else not Compile_Time_Known_Value