Răsfoiți Sursa

Cast properly to avoid range error

Pierre Muller 1 an în urmă
părinte
comite
fbe64536d1
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  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);
         BuildConstSymbolExpression([],l,hs,hssymtyp,size,out_flags);
         if hs<>'' then
         if hs<>'' then
          Message(asmr_e_relocatable_symbol_not_allowed);
          Message(asmr_e_relocatable_symbol_not_allowed);
-        BuildConstExpression:=l;
+        BuildConstExpression:=aint(l);
       end;
       end;
 
 
 
 
@@ -1731,7 +1731,7 @@ Unit Rax86int;
         BuildConstSymbolExpression(in_flags,l,hs,hssymtyp,size,out_flags);
         BuildConstSymbolExpression(in_flags,l,hs,hssymtyp,size,out_flags);
         if hs<>'' then
         if hs<>'' then
          Message(asmr_e_relocatable_symbol_not_allowed);
          Message(asmr_e_relocatable_symbol_not_allowed);
-        BuildRefConstExpression:=l;
+        BuildRefConstExpression:=aint(l);
       end;
       end;