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

Minor code clean up. 

From-SVN: r164063
This commit is contained in:
Arnaud Charlet 2010-09-09 12:02:12 +02:00
parent e5a58facaa
commit a24008b659
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/sem_ch3.adb
View File

@ -1569,11 +1569,17 @@ package body Sem_Ch3 is
if No (Prim) then
-- Skip non-overridden null interface primitives because
-- their wrappers will be generated later.
if Is_Null_Interface_Primitive (Iface_Prim) then
goto Continue;
-- if the tagged type is defined at library level then we
-- invoke Check_Abstract_Overriding to report the error
-- and thus avoid generating the dispatch tables.
if Is_Library_Level_Tagged_Type (Tagged_Type) then
elsif Is_Library_Level_Tagged_Type (Tagged_Type) then
Check_Abstract_Overriding (Tagged_Type);
pragma Assert (Serious_Errors_Detected > 0);
return;
@ -1645,6 +1651,7 @@ package body Sem_Ch3 is
Set_Has_Delayed_Freeze (New_Subp);
end if;
<<Continue>>
Next_Elmt (Elmt);
end loop;