Merged revisions 2641 via svnmerge from

http://[email protected]/svn/fpc/trunk

........
r2641 | peter | 2006-02-20 08:00:38 +0100 (Mon, 20 Feb 2006) | 2 lines

  * init regallocator before generating intf wrappers

........

git-svn-id: branches/fixes_2_0@2642 -

compiler/ncgutil.pas

@@ -2366,7 +2366,9 @@ implementation
                       tostr(j)+'_$_'+_class.implementedinterfaces.implprocs(i,j).mangledname);
                     { create wrapper code }
                     new_section(list,sec_code,lower(tmps),0);
+                    cg.init_register_allocators;
                     cg.g_intf_wrapper(list,_class.implementedinterfaces.implprocs(i,j),tmps,_class.implementedinterfaces.ioffsets(i));
+                    cg.done_register_allocators;
                   end;
               end;
           end;