Browse Source

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

git-svn-id: trunk@24851 -
nickysn 12 năm trước cách đây
mục cha
commit
6431ebe7f3
1 tập tin đã thay đổi với 4 bổ sung1 xóa
  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}