diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-22 12:40:43 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-22 12:40:43 +0000 |
commit | 47b749236902b9d409e4714456187bffaf3a001c (patch) | |
tree | 919081966d8814d2f3ddbe1b8eb8d060fa8ba682 | |
parent | 372ac9de68e711c44b935eb7348faf75623acd20 (diff) | |
download | ppe42-gcc-47b749236902b9d409e4714456187bffaf3a001c.tar.gz ppe42-gcc-47b749236902b9d409e4714456187bffaf3a001c.zip |
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
-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. |