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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 75023bf89022556b5ca800e777672d712d1935e6..be22acb7fd034870876f343aa88e1385c0569d73 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 889c359dc4696587e70c866edc4d96aad70cc62d..4f072f7eab90d04c3d7d69484bb82bc9e5b3c0a1 100644 (file)
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -1737,8 +1737,9 @@ 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,
-                    Chars => (Chars (Defining_Identifier (Parent (Expr)))));
+            L_J :=
+              Make_Defining_Identifier (Loc,
+                Chars => (Chars (Defining_Identifier (Parent (Expr)))));
 
          else
             L_J := Make_Temporary (Loc, 'J', L);

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index bdd720953094341886515d2b7f0f86a6de17b881..1f91de0c293857e53aea2f4e7b57e784714aefa3 100644 (file)
--- a/gcc/ada/exp_ch4.adb
+++ b/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  =>

diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index 1724203195ff00b3b04f570794b836215dc2a58e..9fb47ef13cdfe90c934c23d30bdd29541b3f8c88 100644 (file)
--- a/gcc/ada/inline.adb
+++ b/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'),

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index f34ae63f2f55dd4617e10ba9f9797b49593fd195..d86dc355a1e90acc0506d2a8ac42f8eaf7b39c8c 100644 (file)
--- a/gcc/ada/sem_aggr.adb
+++ b/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))

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 0a6a30efeb19fdeae3ad4a659aab25accf5c1d17..729a4224260865de60c6f018238bba9456ed0cc7 100644 (file)
--- a/gcc/ada/sem_ch3.adb
+++ b/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;
 

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 3e5269f20f9b132acefee2ad0ccbccc9dbea0e19..40066162a1c712e4a56bd567ff992d9332fb524d 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -13705,8 +13705,8 @@ package body Sem_Util is
                       N_Slice)
         and then Prefix (Context) = Obj_Ref
         and then Is_OK_Volatile_Context
-          (Context => Parent (Context),
-           Obj_Ref => Context)
+                   (Context => Parent (Context),
+                    Obj_Ref => Context)
       then
          return True;
 
@@ -13731,11 +13731,11 @@ package body Sem_Util is
       --  occurring in a non-interfering context.
 
       elsif Nkind_In (Context, N_Type_Conversion,
-                      N_Unchecked_Type_Conversion)
+                               N_Unchecked_Type_Conversion)
         and then Expression (Context) = Obj_Ref
         and then Is_OK_Volatile_Context
-          (Context => Parent (Context),
-           Obj_Ref => Context)
+                   (Context => Parent (Context),
+                    Obj_Ref => Context)
       then
          return True;