diff options
author | Robert Dewar <dewar@adacore.com> | 2008-08-22 14:40:43 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-22 14:40:43 +0200 |
commit | 44b901601aa85ed438439772eab7549b485e0bb8 (patch) | |
tree | 919081966d8814d2f3ddbe1b8eb8d060fa8ba682 /gcc/ada | |
parent | 1dcdbfab317af110a083a43e932d00f3dcdc742d (diff) | |
download | gcc-44b901601aa85ed438439772eab7549b485e0bb8.zip gcc-44b901601aa85ed438439772eab7549b485e0bb8.tar.gz gcc-44b901601aa85ed438439772eab7549b485e0bb8.tar.bz2 |
sem_ch8.adb: Minor reformatting
2008-08-22 Robert Dewar <dewar@adacore.com>
* sem_ch8.adb: Minor reformatting
From-SVN: r139444
Diffstat (limited to 'gcc/ada')
-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 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. |