Commit b26f70a0 by Arnaud Charlet

Minor reformatting.

From-SVN: r182538
parent 15954beb
...@@ -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;
......
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