[Pkg-pascal-devel] Bug#980841: fpc: Please add workaround patch to fix FTBFS on m68k

John Paul Adrian Glaubitz glaubitz at physik.fu-berlin.de
Sat Jan 23 00:19:09 GMT 2021


Source: fpc
Severity: normal
Tags: patch
User: debian-68k at lists.debian.org
Usertags: m68k
X-Debbugs-Cc: debian-68k at lists.debian.org,charlie at scenergy.dfmk.hu

Hello!

The attached patch contains a change suggested by Károly Balogh from
upstream to work around the current FPU issue on m68k [1].

With the patch applied, I was able to bootstrap fpc for m68k natively
and uploaded the resulting binaries.

Thus, please drop the current m68k patch [2] and replace it with the
attached one to fix the FTBFS until the upstream bug [1] has been
fixed.

Thanks,
Adrian

> [1] https://bugs.freepascal.org/view.php?id=37250
> [2] https://salsa.debian.org/pascal-team/fpc/-/blob/master/debian/patches/fix-FTBFS-on-m68k.patch

--
 .''`.  John Paul Adrian Glaubitz
: :' :  Debian Developer - glaubitz at debian.org
`. `'   Freie Universitaet Berlin - glaubitz at physik.fu-berlin.de
  `-    GPG: 62FF 8A75 84E0 2956 9546  0006 7426 3B37 F5B5 F913
-------------- next part --------------
Description: Disable FPU inlining on m68k
 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.
 .
Author: John Paul Adrian Glaubitz <glaubitz at physik.fu-berlin.de>
Forwarded: https://bugs.freepascal.org/view.php?id=37250
Last-Update: 2021-01-22

--- fpc-3.2.0+dfsg.orig/fpcsrc/compiler/m68k/n68kadd.pas
+++ fpc-3.2.0+dfsg/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;
 
 


More information about the Pkg-pascal-devel mailing list