فهرست منبع

* do not call the virtual class method/constructor dispatching lookup
when calling the inherited version, since that one is also known at
compile time

git-svn-id: branches/jvmbackend@18712 -

Jonas Maebe 14 سال پیش
والد
کامیت
7419c97e0a
1فایلهای تغییر یافته به همراه1 افزوده شده و 0 حذف شده
  1. 1 0
      compiler/jvm/njvmcal.pas

+ 1 - 0
compiler/jvm/njvmcal.pas

@@ -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