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

2015-10-23  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_ch12.adb, exp_ch6.adb: Minor reformatting.

From-SVN: r229251

gcc/ada/ChangeLog

+2015-10-23  Hristian Kirtchev  <kirtchev@adacore.com>
+
+	* sem_ch12.adb, exp_ch6.adb: Minor reformatting.
+
 2015-10-23  Gary Dismukes  <dismukes@adacore.com>
 
 	* exp_ch6.adb: Minor reformatting.

gcc/ada/exp_ch6.adb

@@ -9598,7 +9598,7 @@ package body Exp_Ch6 is
    begin
       Actuals := Parameter_Associations (N);
 
-      --  Original function may have been parameterless
+      --  The original function may lack parameters
 
       if No (Actuals) then
          Actuals := New_List;

gcc/ada/sem_ch12.adb

@@ -6151,17 +6151,17 @@ package body Sem_Ch12 is
             else
                Formal_Decl := Parent (Associated_Formal_Package (E));
 
-               --  Nothing to check if the formal has a box or an
-               --  others_clause (necessarily with a box).
+               --  Nothing to check if the formal has a box or an others_clause
+               --  (necessarily with a box).
 
                if Box_Present (Formal_Decl) then
                   null;
 
                elsif Nkind (First (Generic_Associations (Formal_Decl))) =
-                 N_Others_Choice
+                       N_Others_Choice
                then
-                  --  The internal validating package was generated but
-                  --  formal and instance are known to be compatible..
+                  --  The internal validating package was generated but formal
+                  --  and instance are known to be compatible.
 
                   Formal_P := Next_Entity (E);
                   Remove (Unit_Declaration_Node (Formal_P));
@@ -6172,8 +6172,8 @@ package body Sem_Ch12 is
 
                   --  After checking, remove the internal validating package.
                   --  It is only needed for semantic checks, and as it may
-                  --  contain generic formal declarations it should not
-                  --  reach gigi.
+                  --  contain generic formal declarations it should not reach
+                  --  gigi.
 
                   Remove (Unit_Declaration_Node (Formal_P));
                end if;