paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid overflow error for single MinValue in rtl syshelph.inc for x86_64 CPU

Browse Source 
git-svn-id: trunk@33012 -
This commit is contained in:
pierre 2016-01-28 14:20:51 +00:00
parent 1d5e9ba35f
commit 1e5883b6d1
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nmat.pas
View File

@ -858,8 +858,13 @@ implementation
if is_constrealnode(left) then
begin
trealconstnode(left).value_real:=-trealconstnode(left).value_real;
{ Avoid integer overflow on x86_64 CPU for currency value }
{ i386 uses fildll/fchs/fistll instructions which never seem
to raise any coprocessor flags .. }
{$push}{$Q-}
trealconstnode(left).value_currency:=-trealconstnode(left).value_currency;
result:=left;
{$pop}
left:=nil;
exit;
end;