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

Minor reformatting. 

From-SVN: r182538
This commit is contained in:
Arnaud Charlet 2011-12-20 14:56:21 +01:00
parent 15954beb2b
commit b26f70a095
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/sem_ch13.adb
View File

@ -1868,9 +1868,9 @@ package body Sem_Ch13 is
procedure Check_One_Function (Subp : Entity_Id) is procedure Check_One_Function (Subp : Entity_Id) is
Default_Element : constant Node_Id := Default_Element : constant Node_Id :=
Find_Aspect Find_Aspect
(Etype (First_Formal (Subp)), (Etype (First_Formal (Subp)),
Aspect_Iterator_Element); Aspect_Iterator_Element);
begin begin
if not Check_Primitive_Function (Subp) then if not Check_Primitive_Function (Subp) then
@ -1885,8 +1885,7 @@ package body Sem_Ch13 is
if Present (Default_Element) then if Present (Default_Element) then
Analyze (Default_Element); Analyze (Default_Element);
if Is_Entity_Name (Default_Element) if Is_Entity_Name (Default_Element)
and then and then Covers (Entity (Default_Element), Etype (Subp))
Covers (Entity (Default_Element), Etype (Subp))
then then
return; return;
end if; end if;
@ -1914,7 +1913,7 @@ package body Sem_Ch13 is
else else
declare declare
I : Interp_Index; I : Interp_Index;
It : Interp; It : Interp;
begin begin