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

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

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

From-SVN: r229251

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index eab0d4cf872b349631f20800e05c0d66123f3be8..941ce252c76264f27376ba27739bee5f1c281a9c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 5df60377ea0282a586d4d261fe57f3878a8d5ef5..05828b2fe0714d2c65870b98a5ff29b2ee52425e 100644 (file)
--- a/gcc/ada/exp_ch6.adb
+++ b/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;

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index e7d279ae7aa4665ca875af35dad98bf37da84e7e..60bd94c1b3c073c529ef81e202d9c1ebb3bcab6f 100644 (file)
--- a/gcc/ada/sem_ch12.adb
+++ b/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;