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

* use Create_nil_dataptr in objectdef_rtti_class_full() when writing the current vmt address for objects that have no vmt

Browse Source 
git-svn-id: trunk@25200 -
This commit is contained in:
nickysn 2013-07-31 15:10:46 +00:00
parent a000d65447
commit 875e676441
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/ncgrtti.pas
View File

@ -859,7 +859,7 @@ implementation
if (oo_has_vmt in def.objectoptions) then
current_asmdata.asmlists[al_rtti].concat(Tai_const.Createname(def.vmt_mangledname,0))
else
current_asmdata.asmlists[al_rtti].concat(Tai_const.create_sym(nil));
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_nil_dataptr);
{ write parent typeinfo }
write_rtti_reference(def.childof,fullrtti);