guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

05/41: gnu: guile: Fix building on riscv64-linux.


From: guix-commits
Subject: 05/41: gnu: guile: Fix building on riscv64-linux.
Date: Thu, 9 Sep 2021 08:39:29 -0400 (EDT)

efraim pushed a commit to branch wip-riscv
in repository guix.

commit 04b6ae3640c270659d745cc077b5f1eb589aa640
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 9fa2237..113ad40 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -356,14 +356,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-riscv?))
+               `((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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]