mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:29:23 +02:00
* really fix bootstrapping with 3.2.2 on arm-linux
This commit is contained in:
parent
7a963ac56a
commit
4cf202180e
@ -1758,14 +1758,18 @@ end;
|
|||||||
|
|
||||||
{$ifndef FPC_SYSTEM_HAS_FRAC}
|
{$ifndef FPC_SYSTEM_HAS_FRAC}
|
||||||
{$push}
|
{$push}
|
||||||
|
{$ifndef VER3_2}
|
||||||
{ if we have to check manually fpu exceptions, then force the result assignment statement here to
|
{ if we have to check manually fpu exceptions, then force the result assignment statement here to
|
||||||
throw one }
|
throw one }
|
||||||
{$CHECKFPUEXCEPTIONS+}
|
{$CHECKFPUEXCEPTIONS+}
|
||||||
{ turn off fastmath as it converts (d-d)/zero into 0 and thus not raising an exception }
|
{ turn off fastmath as it converts (d-d)/zero into 0 and thus not raising an exception }
|
||||||
{$OPTIMIZATION NOFASTMATH}
|
{$OPTIMIZATION NOFASTMATH}
|
||||||
|
{$endif VER3_2}
|
||||||
function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
|
function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
|
||||||
|
{$ifndef VER3_2}
|
||||||
const
|
const
|
||||||
zero: ValReal = 0.0;
|
zero: ValReal = 0.0;
|
||||||
|
{$endif VER3_2}
|
||||||
begin
|
begin
|
||||||
{ Nan or +/-Inf }
|
{ Nan or +/-Inf }
|
||||||
if (float64high(d) and $7ff00000)=$7ff00000 then
|
if (float64high(d) and $7ff00000)=$7ff00000 then
|
||||||
|
Loading…
Reference in New Issue
Block a user