diff options
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
-rw-r--r-- | gcc/ada/sem_ch6.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 468c112..9ef0aca 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -1498,6 +1498,7 @@ package body Sem_Ch6 is end; Process_End_Label (Handled_Statement_Sequence (N), 't', Current_Scope); + Update_Use_Clause_Chain; End_Scope; Check_Subprogram_Order (N); @@ -4357,6 +4358,7 @@ package body Sem_Ch6 is -- Deal with end of scope processing for the body Process_End_Label (HSS, 't', Current_Scope); + Update_Use_Clause_Chain; End_Scope; -- If we are compiling an entry wrapper, remove the enclosing |