Browse Source

* fix range error

git-svn-id: trunk@2640 -
peter 19 năm trước cách đây
mục cha
commit
5ac78d1ec3
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      compiler/i386/popt386.pas

+ 1 - 1
compiler/i386/popt386.pas

@@ -703,7 +703,7 @@ begin
                       case Taicpu(p).opsize of
                         S_B: v:=$80;
                         S_W: v:=$8000;
-                        S_L: v:=$80000000;
+                        S_L: v:=aint($80000000);
                       end;
                       if (taicpu(p).oper[0]^.typ=Top_const) and 
                          (taicpu(p).oper[0]^.val=v) and