diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 07705c5..625f305 100644 --- 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 a51abd5..955db28 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 |