Browse Source

* really fix bootstrapping with 3.2.2 on arm-linux

florian 9 months ago
parent
commit
4cf202180e
1 changed files with 4 additions and 0 deletions
  1. 4 0
      rtl/inc/genmath.inc

+ 4 - 0
rtl/inc/genmath.inc

@@ -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