Commit b26f70a0 by Arnaud Charlet

Minor reformatting.

From-SVN: r182538
parent 15954beb
......@@ -1885,8 +1885,7 @@ package body Sem_Ch13 is
if Present (Default_Element) then
Analyze (Default_Element);
if Is_Entity_Name (Default_Element)
and then
Covers (Entity (Default_Element), Etype (Subp))
and then Covers (Entity (Default_Element), Etype (Subp))
then
return;
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