Merged revisions 9868 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r9868 | peter | 2008-01-22 19:49:29 +0100 (Tue, 22 Jan 2008) | 2 lines
  
    * start new objectfile for interface wrappers
........

git-svn-id: branches/fixes_2_2@10276 -

compiler/ncgutil.pas

@@ -2670,6 +2670,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]);