瀏覽代碼

* fixes ttypeconvnode.docompare hopefully finally (nobody has seen my last attempt ;))

git-svn-id: trunk@14755 -
florian 15 年之前
父節點
當前提交
f12ba2ed23
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/ncnv.pas

+ 1 - 1
compiler/ncnv.pas

@@ -3019,7 +3019,7 @@ implementation
         docompare :=
         docompare :=
           inherited docompare(p) and
           inherited docompare(p) and
           (convtype = ttypeconvnode(p).convtype) and
           (convtype = ttypeconvnode(p).convtype) and
-          equal_defs(resultdef,left.resultdef);
+          equal_defs(totypedef,ttypeconvnode(p).totypedef);
       end;
       end;