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

* terminate the list of virtual method pointers in the vmt with Tai_const.Create_nil_codeptr

Browse Source 
git-svn-id: trunk@25193 -
This commit is contained in:
nickysn 2013-07-30 23:04:25 +00:00
parent 728e8c62a7
commit 0bdd9db7a2
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

@ -859,7 +859,7 @@ implementation
end; end;
{ write virtual methods } { write virtual methods }
writevirtualmethods(current_asmdata.asmlists[al_globals]); writevirtualmethods(current_asmdata.asmlists[al_globals]);
current_asmdata.asmlists[al_globals].concat(Tai_const.create(aitconst_ptr,0)); current_asmdata.asmlists[al_globals].concat(Tai_const.Create_nil_codeptr);
{ write the size of the VMT } { write the size of the VMT }
current_asmdata.asmlists[al_globals].concat(Tai_symbol_end.Createname(_class.vmt_mangledname)); current_asmdata.asmlists[al_globals].concat(Tai_symbol_end.Createname(_class.vmt_mangledname));
{$ifdef vtentry} {$ifdef vtentry}