sem_aggr.adb, [...]: Minor reformatting.

2017-01-13  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_aggr.adb, sem_ch3.adb, inline.adb, sem_util.adb, exp_ch4.adb,
	exp_aggr.adb: Minor reformatting.

From-SVN: r244416

gcc/ada/ChangeLog

+2017-01-13  Hristian Kirtchev  <kirtchev@adacore.com>
+
+	* sem_aggr.adb, sem_ch3.adb, inline.adb, sem_util.adb, exp_ch4.adb,
+	exp_aggr.adb: Minor reformatting.
+
 2017-01-13  Gary Dismukes  <dismukes@adacore.com>
 
 	* inline.adb: Minor reformatting and typo fix.

gcc/ada/exp_aggr.adb

@@ -1737,7 +1737,8 @@ package body Exp_Aggr is
          --  Otherwise construct the loop, starting with the loop index L_J
 
          if Is_Iterated_Component then
-            L_J := Make_Defining_Identifier (Loc,
+            L_J :=
+              Make_Defining_Identifier (Loc,
                 Chars => (Chars (Defining_Identifier (Parent (Expr)))));
 
          else

gcc/ada/exp_ch4.adb

@@ -7776,6 +7776,7 @@ package body Exp_Ch4 is
             else
                pragma Assert
                  (Expv = -1 or Expv = -2 or Expv = -3 or Expv = -4);
+
                Xnode :=
                  Make_Op_Divide (Loc,
                    Left_Opnd  =>

gcc/ada/inline.adb

@@ -3201,6 +3201,7 @@ package body Inline is
                then
                   pragma Assert (not (Is_By_Reference_Type (Etype (A))));
                   pragma Assert (not (Is_Limited_Type (Etype (A))));
+
                   Append_To (Decls,
                     Make_Object_Declaration (Loc,
                       Defining_Identifier => Make_Temporary (Loc, 'C'),

gcc/ada/sem_aggr.adb

@@ -809,8 +809,8 @@ package body Sem_Aggr is
    begin
       return No (Expressions (Aggr))
         and then
-          Nkind (First (Choice_List (First (Component_Associations (Aggr)))))
-             = N_Others_Choice;
+          Nkind (First (Choice_List (First (Component_Associations (Aggr))))) =
+            N_Others_Choice;
    end Is_Others_Aggregate;
 
    ----------------------------
@@ -1691,8 +1691,6 @@ package body Sem_Aggr is
       Expr    : Node_Id;
       Discard : Node_Id;
 
-      --  Iterated_Component_Present : Boolean := False;
-
       Aggr_Low  : Node_Id := Empty;
       Aggr_High : Node_Id := Empty;
       --  The actual low and high bounds of this sub-aggregate
@@ -1732,7 +1730,6 @@ package body Sem_Aggr is
          while Present (Assoc) loop
             if Nkind (Assoc) = N_Iterated_Component_Association then
                Resolve_Iterated_Component_Association (Assoc, Index_Typ);
-               --  Iterated_Component_Present := True;
                goto Next_Assoc;
             end if;
 
@@ -1791,9 +1788,9 @@ package body Sem_Aggr is
 
                         --  If the subtype has a static predicate, replace the
                         --  original choice with the list of individual values
-                        --  covered by the predicate.
-                        --  Do not perform this transformation if we need to
-                        --  preserve the source for ASIS use.
+                        --  covered by the predicate. Do not perform this
+                        --  transformation if we need to preserve the source
+                        --  for ASIS use.
                         --  This should be deferred to expansion time ???
 
                         if Present (Static_Discrete_Predicate (E))

gcc/ada/sem_ch3.adb

@@ -4151,8 +4151,8 @@ package body Sem_Ch3 is
            and then Present (Component_Associations (E))
            and then Present (Choice_List (First (Component_Associations (E))))
            and then
-             Nkind (First (Choice_List (First (Component_Associations (E)))))
-               = N_Others_Choice
+             Nkind (First (Choice_List (First (Component_Associations (E))))) =
+               N_Others_Choice
          then
             null;