me/guix
Archived
1
0
Fork 0
Code Activity

gnu: guile: Fix failing tests on IA32.

Browse source 
Fixes <https://issues.guix.gnu.org/49368>.

* gnu/packages/guile.scm (guile-3.0)[arguments]<#:configure-flags>:
  Add "-fexcess-precision=standard" to CFLAGS when
  (target-x86-32?) is true.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Maxime Devos 2021-07-20 23:34:17 +02:00 • committed by Ludovic Courtès
parent b15c3dd9b0
commit fccc027509
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/guile.scm
View file

@ -16,6 +16,7 @@
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2019 Taylan Kammer <taylan.kammer@gmail.com> ;;; Copyright © 2019 Taylan Kammer <taylan.kammer@gmail.com>
;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -316,11 +317,19 @@ without requiring the source code to be rewritten.")
(arguments (arguments
(substitute-keyword-arguments (package-arguments guile-2.2) (substitute-keyword-arguments (package-arguments guile-2.2)
((#:configure-flags flags ''()) ((#:configure-flags flags ''())
(let ((flags `(cons "--enable-mini-gmp" ,flags)))
;; XXX: JIT-enabled Guile crashes in obscure ways on GNU/Hurd. ;; XXX: JIT-enabled Guile crashes in obscure ways on GNU/Hurd.
(if (hurd-target?) `(cons* ,@(if (hurd-target?)
`(cons "--disable-jit" ,flags) '("--disable-jit")
flags))) '())
;; -fexcess-precision=standard is required when compiling for
;; i686-linux, otherwise "numbers.test" will fail
;; (see <https://issues.guix.gnu.org/49368> and
;; <https://issues.guix.gnu.org/49659>).
,@(if (target-x86-32?)
'("CFLAGS=-g -O2 -fexcess-precision=standard")
'())
"--enable-mini-gmp"
,flags))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases `(modify-phases ,phases
(add-before 'check 'disable-stack-overflow-test (add-before 'check 'disable-stack-overflow-test