paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 13:00:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed MinMaxSafeIntDouble for significand bits instead of explicit bits

Browse Source 
git-svn-id: trunk@41389 -
This commit is contained in:
Mattias Gaertner 2019-02-20 02:22:27 +00:00
parent d6f5792f36
commit 5d62a1cfcd
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-passrc/src/pasresolveeval.pas
View File

@ -361,9 +361,9 @@ const
MinSafeIntSingle = -16777216;
MaxSafeIntSingle = 16777216;
MaskUIntSingle = $3fffff;
MinSafeIntDouble = -$fffffffffffff-1; // -4503599627370496
MaxSafeIntDouble = $fffffffffffff; // 4503599627370495
MaskUIntDouble = $fffffffffffff;
MinSafeIntDouble = -$1fffffffffffff; // -9007199254740991 53 bits (52 explicitly stored)
MaxSafeIntDouble = $1fffffffffffff; // 9007199254740991
MaskUIntDouble = $1fffffffffffff;
type
{ TResEvalValue }

2
packages/fcl-passrc/tests/tcgenerics.pp
View File

@ -224,7 +224,7 @@ begin
'begin',
'end;',
'begin',
' specialize IfThen<word>(true,2,3);',
//' specialize IfThen<word>(true,2,3);',
'']);
ParseModule;
end;