Skip to content

R
riscv-gcc-1
Commit b26f70a0 by Arnaud Charlet
Options

Minor reformatting. 

From-SVN: r182538
parent 15954beb
Showing with 5 additions and 6 deletions
gcc/ada/sem_ch13.adb
...@@ -1868,9 +1868,9 @@ package body Sem_Ch13 is ...@@ -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 ...@@ -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 ...@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment