ソースを参照

* keep the node flags when replacing a call to a virtual class method with
a call to its wrapper

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

Jonas Maebe 14 年 前
コミット
2a9043f4bc
1 ファイル変更1 行追加0 行削除
  1. 1 0
      compiler/jvm/njvmcal.pas

+ 1 - 0
compiler/jvm/njvmcal.pas

@@ -566,6 +566,7 @@ implementation
                 begin
                 begin
                   remove_hidden_paras;
                   remove_hidden_paras;
                   result:=ccallnode.create(left,tprocsym(sym),symtableproc,methodpointer,callnodeflags);
                   result:=ccallnode.create(left,tprocsym(sym),symtableproc,methodpointer,callnodeflags);
+                  result.flags:=flags;
                   left:=nil;
                   left:=nil;
                   methodpointer:=nil;
                   methodpointer:=nil;
                   exit;
                   exit;