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

View File

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