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

* improved fpc_frac_real

Browse Source
This commit is contained in:
florian 2022-02-18 22:47:38 +01:00
parent 3f14a19d3e
commit 04145589a9
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/genmath.inc
View File

@ -1758,11 +1758,9 @@ end;
{$ifndef FPC_SYSTEM_HAS_FRAC} {$ifndef FPC_SYSTEM_HAS_FRAC}
function fpc_frac_real(d : ValReal) : ValReal;compilerproc; function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
var
i: integer;
begin begin
i := (float64high(d) and $7ff00000) shr 20; { Nan or +/-Inf }
if i=$7FF then if (float64high(d) and $7ff00000)=$7ff00000 then
{ return NaN } { return NaN }
result := (d-d)/0.0 result := (d-d)/0.0
else else