paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-04 11:27:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also generate an indirect symbol for the VMT

Browse Source 
git-svn-id: trunk@34171 -
This commit is contained in:
svenbarth 2016-07-22 12:50:38 +00:00
parent 6a1c1e4f29
commit dc21bc842a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgvmt.pas
View File

@ -1202,7 +1202,7 @@ implementation
{ concatenate the VMT to the asmlist } { concatenate the VMT to the asmlist }
current_asmdata.asmlists[al_globals].concatlist( current_asmdata.asmlists[al_globals].concatlist(
tcb.get_final_asmlist( tcb.get_final_asmlist(
current_asmdata.DefineAsmSymbol(_class.vmt_mangledname,AB_GLOBAL,AT_DATA,vmtdef), current_asmdata.DefineAsmSymbol(_class.vmt_mangledname,AB_GLOBAL,AT_DATA_FORCEINDIRECT,vmtdef),
vmtdef,sec_rodata,_class.vmt_mangledname,const_align(sizeof(pint)) vmtdef,sec_rodata,_class.vmt_mangledname,const_align(sizeof(pint))
) )
); );