瀏覽代碼

* 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 }
             original constructor with another call to the wrapper }
           if (procdefinition.typ=procdef) and
           if (procdefinition.typ=procdef) and
              (current_procinfo.procdef.synthetickind<>tsk_callthrough) and
              (current_procinfo.procdef.synthetickind<>tsk_callthrough) and
+             not(cnf_inherited in callnodeflags) and
              ((procdefinition.proctypeoption=potype_constructor) or
              ((procdefinition.proctypeoption=potype_constructor) or
               (po_classmethod in procdefinition.procoptions)) and
               (po_classmethod in procdefinition.procoptions)) and
              (po_virtualmethod in procdefinition.procoptions) and
              (po_virtualmethod in procdefinition.procoptions) and