[Ada] Minor reformatting

2018-01-11  Justin Squirek  <squirek@adacore.com>

gcc/ada/

	* sem_ch8.adb: Minor comment fix.

From-SVN: r256487

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 07705c5991bd33f21c4ad9b47cd877e2708eb44f..625f3053a6f30c6d0361dc6de8fb3fdbb6efc1f9 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-01-11  Justin Squirek  <squirek@adacore.com>
+
+       * sem_ch8.adb: Minor comment fix.
+
 2018-01-11  Hristian Kirtchev  <kirtchev@adacore.com>
 
        * exp_ch4.adb (Process_Action): Do not abandon the inspection of an

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index a51abd5d3a366afbb3ad9680dc9c160c3e0f9386..955db28d97de794d7ea9435e13c9deded7d2f4b1 100644 (file)
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -9118,6 +9118,7 @@ package body Sem_Ch8 is
    -----------------------------
 
    procedure Update_Use_Clause_Chain is
+
       procedure Update_Chain_In_Scope (Level : Int);
       --  Iterate through one level in the scope stack verifying each use-type
       --  clause within said level is used then reset the Current_Use_Clause
@@ -9161,7 +9162,7 @@ package body Sem_Ch8 is
                if Nkind (Curr) = N_Use_Package_Clause then
 
                   --  Renamings and formal subprograms may cause the associated
-                  --  to be marked as effective instead of the original.
+                  --  node to be marked as effective instead of the original.
 
                   if not (Present (Associated_Node (N))
                            and then Present