From: Hristian Kirtchev <kirtchev@adacore.com>
Date: Fri, 23 Oct 2015 12:55:06 +0000 (+0000)
Subject: sem_ch12.adb, [...]: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6f99dcec636ac8bd0aec5ff9eec9cc6627d4889e;p=gcc.git

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 eab0d4cf872..941ce252c76 100644
--- 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 5df60377ea0..05828b2fe07 100644
--- 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 e7d279ae7aa..60bd94c1b3c 100644
--- 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;