paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 07:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also import procdefs that are called through the VMT

Browse Source 
git-svn-id: trunk@34177 -
This commit is contained in:
svenbarth 2016-07-22 13:38:59 +00:00
parent f69b365b77
commit 971d05c898
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgvmt.pas
View File

@ -1017,7 +1017,11 @@ implementation
current_module.add_extern_asmsym(procname,AB_GLOBAL,AT_FUNCTION); current_module.add_extern_asmsym(procname,AB_GLOBAL,AT_FUNCTION);
end end
else if not wpoinfomanager.optimized_name_for_vmt(_class,vmtpd,procname) then else if not wpoinfomanager.optimized_name_for_vmt(_class,vmtpd,procname) then
procname:=vmtpd.mangledname; begin
procname:=vmtpd.mangledname;
if current_module.moduleid<>vmtpd.owner.moduleid then
current_module.addimportedsym(vmtpd.procsym);
end;
tcb.emit_tai(Tai_const.Createname(procname,AT_FUNCTION,0),cprocvardef.getreusableprocaddr(vmtpd)); tcb.emit_tai(Tai_const.Createname(procname,AT_FUNCTION,0),cprocvardef.getreusableprocaddr(vmtpd));
{$ifdef vtentry} {$ifdef vtentry}
hs:='VTENTRY'+'_'+_class.vmt_mangledname+'$$'+tostr(_class.vmtmethodoffset(i) div sizeof(pint)); hs:='VTENTRY'+'_'+_class.vmt_mangledname+'$$'+tostr(_class.vmtmethodoffset(i) div sizeof(pint));