paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 01:06:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid overflow error

Browse Source 
git-svn-id: trunk@43593 -
This commit is contained in:
florian 2019-11-26 19:39:04 +00:00
parent af107ca8fe
commit cf0716123c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/aoptx86.pas
View File

@ -3016,7 +3016,7 @@ unit aoptx86;
function TX86AsmOptimizer.OptPass1Cmp(var p: tai): boolean;
var
v: QWord;
v: TCGInt;
hp1, hp2, hp3, hp4: tai;
begin
Result:=false;
@ -3028,7 +3028,8 @@ unit aoptx86;
S_B: v:=$80;
S_W: v:=$8000;
S_L: v:=qword($80000000);
S_Q : v:=qword($8000000000000000);
{ actually, this will never happen: cmp with 64 bit constants is not possible }
S_Q : v:=Int64($8000000000000000);
else
internalerror(2013112905);
end;