Sfoglia il codice sorgente

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

git-svn-id: trunk@14755 -
florian 15 anni fa
parent
commit
f12ba2ed23
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      compiler/ncnv.pas

+ 1 - 1
compiler/ncnv.pas

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