* start new objectfile for interface wrappers

git-svn-id: trunk@9868 -

compiler/ncgutil.pas

@@ -2629,6 +2629,7 @@ implementation
             if (ImplIntf=ImplIntf.VtblImplIntf) and
                assigned(ImplIntf.ProcDefs) then
               begin
+                maybe_new_object_file(list);
                 for j:=0 to ImplIntf.ProcDefs.Count-1 do
                   begin
                     pd:=TProcdef(ImplIntf.ProcDefs[j]);