ソースを参照

* fix range error

git-svn-id: trunk@2640 -
peter 19 年 前
コミット
5ac78d1ec3
1 ファイル変更1 行追加1 行削除
  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