From 44b901601aa85ed438439772eab7549b485e0bb8 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 22 Aug 2008 14:40:43 +0200 Subject: sem_ch8.adb: Minor reformatting 2008-08-22 Robert Dewar * sem_ch8.adb: Minor reformatting From-SVN: r139444 --- gcc/ada/sem_ch8.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 1c7f1a1..cf9a387 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. -- cgit v1.1