Browse Source

* bootstrapping fix with 3.2 for arm-linux

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

+ 5 - 0
rtl/inc/genmath.inc

@@ -1770,7 +1770,12 @@ function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
     { Nan or +/-Inf }
     { Nan or +/-Inf }
     if (float64high(d) and $7ff00000)=$7ff00000 then
     if (float64high(d) and $7ff00000)=$7ff00000 then
       { return NaN }
       { return NaN }
+{$ifdef VER3_2}
+      { fix bootstrapping with 3.2 on arm-linux }
+      result := (d-d)/0.0
+{$else VER3_2}
       result := zero/zero
       result := zero/zero
+{$endif VER3_2}
     else
     else
       result := d - Int(d);
       result := d - Int(d);
   end;
   end;