paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 19:47:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

* init regallocator before generating intf wrappers

Browse Source 
git-svn-id: trunk@2641 -
This commit is contained in:
peter 2006-02-20 07:00:38 +00:00
parent 5ac78d1ec3
commit 6142edaed0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgutil.pas
View File

@ -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;