فهرست منبع

* init regallocator before generating intf wrappers

git-svn-id: trunk@2641 -
peter 19 سال پیش
والد
کامیت
6142edaed0
1فایلهای تغییر یافته به همراه2 افزوده شده و 0 حذف شده
  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;