Browse Source

* init regallocator before generating intf wrappers

git-svn-id: trunk@2641 -
peter 19 years ago
parent
commit
6142edaed0
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/ncgutil.pas

+ 2 - 0
compiler/ncgutil.pas

@@ -2368,7 +2368,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;