From: Robert Dewar <dewar@adacore.com>
Date: Thu, 31 Jul 2008 14:41:10 +0000 (+0200)
Subject: exp_aggr.adb: Minor reformatting
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=86038a882f2f4ec47db494f3e6f4ef171bf5892b;p=gcc.git

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 84aed96d9b9..eaff8e89a9e 100644
--- 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