瀏覽代碼

Cast properly to avoid range error

Pierre Muller 2 年之前
父節點
當前提交
fbe64536d1
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/x86/rax86int.pas

+ 2 - 2
compiler/x86/rax86int.pas

@@ -1713,7 +1713,7 @@ Unit Rax86int;
         BuildConstSymbolExpression([],l,hs,hssymtyp,size,out_flags);
         if hs<>'' then
          Message(asmr_e_relocatable_symbol_not_allowed);
-        BuildConstExpression:=l;
+        BuildConstExpression:=aint(l);
       end;
 
 
@@ -1731,7 +1731,7 @@ Unit Rax86int;
         BuildConstSymbolExpression(in_flags,l,hs,hssymtyp,size,out_flags);
         if hs<>'' then
          Message(asmr_e_relocatable_symbol_not_allowed);
-        BuildRefConstExpression:=l;
+        BuildRefConstExpression:=aint(l);
       end;