Parcourir la source

* init regallocator before generating intf wrappers

git-svn-id: trunk@2641 -
peter il y a 19 ans
Parent
commit
6142edaed0
1 fichiers modifiés avec 2 ajouts et 0 suppressions
  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;