瀏覽代碼

* treat the nil node as equal to near, far and all the special x86 pointer types

git-svn-id: trunk@24851 -
nickysn 12 年之前
父節點
當前提交
6431ebe7f3
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/defcmp.pas

+ 4 - 1
compiler/defcmp.pas

@@ -1282,7 +1282,10 @@ implementation
                      { check for far pointers }
                      if (tpointerdef(def_from).x86pointertyp<>tpointerdef(def_to).x86pointertyp) then
                        begin
-                         eq:=te_incompatible;
+                         if fromtreetype=niln then
+                           eq:=te_equal
+                         else
+                           eq:=te_incompatible;
                        end
                      else
 {$endif x86}