2008-08-22 Robert Dewar <dewar@adacore.com>

	* sem_ch8.adb: Minor reformatting

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139444 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 1c7f1a1..cf9a387 100644 (file)
--- 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.