[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: gnu: guile: Fix building on riscv64-linux.
From: |
guix-commits |
Subject: |
02/04: gnu: guile: Fix building on riscv64-linux. |
Date: |
Sun, 10 Oct 2021 09:25:53 -0400 (EDT) |
efraim pushed a commit to branch core-updates-frozen
in repository guix.
commit f9fbed011e51def23bf6f141f4dbcbbcce1669d2
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Jul 28 12:44:02 2021 +0000
gnu: guile: Fix building on riscv64-linux.
* gnu/packages/guile.scm (guile-3.0)[arguments]: On riscv64-linux add
a phase to skip a failing test.
---
gnu/packages/guile.scm | 19 +++++++++++--------
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index c1a551f..df75389 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -362,14 +362,17 @@ without requiring the source code to be rewritten.")
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214
(substitute* "bootstrap/Makefile.in"
(("^GUILE_OPTIMIZATIONS.*")
- "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives
-Ocps\n"))))
- (add-after 'unpack 'skip-failing-fdes-test
- (lambda _
- ;; ERROR: ((system-error "seek" "~A" ("Bad file
descriptor") (9)))
- (substitute* "test-suite/tests/ports.test"
- (("fdes not closed\"" all) (string-append all "(exit
77)")))
- #t)))
- '())))))
+ "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives
-Ocps\n")))))
+ '())
+ ,@(if (or (target-ppc32?)
+ (target-riscv64?))
+ `((add-after 'unpack 'skip-failing-fdes-test
+ (lambda _
+ ;; ERROR: ((system-error "seek" "~A" ("Bad file
descriptor") (9)))
+ (substitute* "test-suite/tests/ports.test"
+ (("fdes not closed\"" all) (string-append all "(exit
77)")))
+ #t)))
+ '())))))
(native-search-paths
(list (search-path-specification