From c2e87cd7796d59cb1d699cfa3e6ce1d58273d73b Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 9 Sep 2010 10:02:12 +0000 Subject: [PATCH] Minor code clean up. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164063 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/sem_ch3.adb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 545403a6de82..3e801ad2c17b 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -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; + <> Next_Elmt (Elmt); end loop; -- 2.47.2