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

* don't replace the vmt entries of unused published virtual methods with

Browse Source 
references to FPC_ABSTRACTERROR when using -Owoptvmts, since these can
    also be called via rtti

git-svn-id: trunk@13045 -
This commit is contained in:
Jonas Maebe 2009-04-26 09:42:33 +00:00
parent 17e322cf57
commit 58f4f7829c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/optvirt.pas
View File

@ -1068,8 +1068,13 @@ unit optvirt;
exit; exit;
{ if it's for a vmtentry of an objdef and the objdef is { if it's for a vmtentry of an objdef and the objdef is
not instantiated, then we can fill the vmt with pointers not instantiated, then we can fill the vmt with pointers
to FPC_ABSTRACTERROR to FPC_ABSTRACTERROR, except for published methods
(these can be called via rtti, so always have to point
to the original method)
} }
if forvmtentry and
(tprocdef(procdef).procsym.visibility=vis_published) then
exit;
if forvmtentry and if forvmtentry and
(objdef.typ=objectdef) and (objdef.typ=objectdef) and
not classdevirtinfo.instantiated and not classdevirtinfo.instantiated and