Browse Source

* non-normalized huge pointer comparison made unsigned

git-svn-id: trunk@28214 -
nickysn 11 years ago
parent
commit
5818451bb5
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/i8086/n8086add.pas

+ 2 - 1
compiler/i8086/n8086add.pas

@@ -787,7 +787,8 @@ interface
         unsigned:=((left.resultdef.typ=orddef) and
         unsigned:=((left.resultdef.typ=orddef) and
                    (torddef(left.resultdef).ordtype=u32bit)) or
                    (torddef(left.resultdef).ordtype=u32bit)) or
                   ((right.resultdef.typ=orddef) and
                   ((right.resultdef.typ=orddef) and
-                   (torddef(right.resultdef).ordtype=u32bit));
+                   (torddef(right.resultdef).ordtype=u32bit)) or
+                  is_hugepointer(left.resultdef);
 
 
         { left and right no register?  }
         { left and right no register?  }
         { then one must be demanded    }
         { then one must be demanded    }