paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 01:00:00 +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

2
compiler/ncgvmt.pas
View File

@ -1202,7 +1202,7 @@ implementation
{ concatenate the VMT to the asmlist }
current_asmdata.asmlists[al_globals].concatlist(
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))
)
);