OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_ch8.adb: Minor reformatting 

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

	* sem_ch8.adb: Minor reformatting

From-SVN: r139444
This commit is contained in:
Robert Dewar 2008-08-22 14:40:43 +02:00 committed by Arnaud Charlet
parent 1dcdbfab31
commit 44b901601a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/sem_ch8.adb
View File

@ -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.