Disable FPU inlining on m68k

Forwarded: https://bugs.freepascal.org/view.php?id=37250
Last-Update: 2021-01-22

There is a bug in the FPU code on m68k which causes the
bootstrap to fail (upstream bug #37250). Until the bug
has been fixed, disable FPU inlining to work around the
issue and fix the bootstrap on m68k.

Gbp-Pq: Name m68k-disable-FPU-inlining.patch

diff --git a/fpcsrc/compiler/m68k/n68kadd.pas b/fpcsrc/compiler/m68k/n68kadd.pas
index 9854111ffbb51078aed38f8866bd1ccb49f271ec..60419f7d1bc4526db27a965e2b421f2116bcc194 100644 (file)
--- a/fpcsrc/compiler/m68k/n68kadd.pas
+++ b/fpcsrc/compiler/m68k/n68kadd.pas
@@ -148,10 +148,7 @@ implementation
 
     function t68kaddnode.inlineable_realconstnode(const n: tnode): boolean;
       begin
-        result:=(n.nodetype = realconstn) and
-            not ((trealconstnode(n).value_real=MathInf.Value) or
-                 (trealconstnode(n).value_real=MathNegInf.Value) or
-                 (trealconstnode(n).value_real=MathQNaN.value));
+        result:=false;
       end;