From: John Paul Adrian Glaubitz <glaubitz@physik.fu-berlin.de>
Date: Mon, 4 Sep 2023 20:43:35 +0000 (+0100)
Subject: Disable FPU inlining on m68k
X-Git-Tag: archive/raspbian/3.2.2+dfsg-32+rpi1~1^2^2~16
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=9f7838446cd19e73a76cd595824f3a13f0d98e88;p=fpc.git

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 ee1c29e3..f24b2d23 100644
--- 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;