diff options
-rw-r--r-- | gcc/ada/sem_ch8.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 1c7f1a18b4f..cf9a3877bf5 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -7064,7 +7064,7 @@ package body Sem_Ch8 is -- Case where we know the current use clause for the type if Present (Current_Use_Clause (T)) then - declare + Use_Clause_Known : declare Clause1 : constant Node_Id := Parent (Id); Clause2 : constant Node_Id := Current_Use_Clause (T); Ent1 : Entity_Id; @@ -7094,6 +7094,8 @@ package body Sem_Ch8 is end if; end Entity_Of_Unit; + -- Start of processing for Use_Clause_Known + begin -- If both current use type clause and the use type -- clause for the type are at the compilation unit level, @@ -7165,7 +7167,7 @@ package body Sem_Ch8 is ("& is already use-visible through previous " & "use type clause?", Id, Id); end if; - end; + end Use_Clause_Known; -- Here if Current_Use_Clause is not set for T, another case -- where we do not have the location information available. |