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

* really fix bootstrapping with 3.2.2 on arm-linux

Browse Source
This commit is contained in:
florian 2024-11-02 22:32:40 +01:00
parent 7a963ac56a
commit 4cf202180e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/genmath.inc
View File

@ -1758,14 +1758,18 @@ end;
{$ifndef FPC_SYSTEM_HAS_FRAC}
{$push}
{$ifndef VER3_2}
{ if we have to check manually fpu exceptions, then force the result assignment statement here to
throw one }
{$CHECKFPUEXCEPTIONS+}
{ turn off fastmath as it converts (d-d)/zero into 0 and thus not raising an exception }
{$OPTIMIZATION NOFASTMATH}
{$endif VER3_2}
function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
{$ifndef VER3_2}
const
zero: ValReal = 0.0;
{$endif VER3_2}
begin
{ Nan or +/-Inf }
if (float64high(d) and $7ff00000)=$7ff00000 then