From 6b199a185b21857c2c26b470f8241d95d767c8c9 Mon Sep 17 00:00:00 2001 From: Justin Squirek Date: Thu, 11 Jan 2018 08:50:38 +0000 Subject: [PATCH] [Ada] Minor reformatting 2018-01-11 Justin Squirek gcc/ada/ * sem_ch8.adb: Minor comment fix. From-SVN: r256487 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_ch8.adb | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 07705c5991b..625f3053a6f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-01-11 Justin Squirek + + * sem_ch8.adb: Minor comment fix. + 2018-01-11 Hristian Kirtchev * 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 a51abd5d3a3..955db28d97d 100644 --- 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 -- 2.30.2