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

* do not call the virtual class method/constructor dispatching lookup

Browse Source 
when calling the inherited version, since that one is also known at
    compile time

git-svn-id: branches/jvmbackend@18712 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:26:52 +00:00
parent ddf6591f7f
commit 7419c97e0a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/jvm/njvmcal.pas
View File

@ -550,6 +550,7 @@ implementation
original constructor with another call to the wrapper }
if (procdefinition.typ=procdef) and
(current_procinfo.procdef.synthetickind<>tsk_callthrough) and
not(cnf_inherited in callnodeflags) and
((procdefinition.proctypeoption=potype_constructor) or
(po_classmethod in procdefinition.procoptions)) and
(po_virtualmethod in procdefinition.procoptions) and