me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Efraim Flashner 2021-07-28 12:44:02 +00:00
parent 697686805f
commit f9fbed011e
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/guile.scm
View File

@ -362,14 +362,17 @@ without requiring the source code to be rewritten.")
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214 ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214
(substitute* "bootstrap/Makefile.in" (substitute* "bootstrap/Makefile.in"
(("^GUILE_OPTIMIZATIONS.*") (("^GUILE_OPTIMIZATIONS.*")
"GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives -Ocps\n")))) "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives -Ocps\n")))))
(add-after 'unpack 'skip-failing-fdes-test '())
(lambda _ ,@(if (or (target-ppc32?)
;; ERROR: ((system-error "seek" "~A" ("Bad file descriptor") (9))) (target-riscv64?))
(substitute* "test-suite/tests/ports.test" `((add-after 'unpack 'skip-failing-fdes-test
(("fdes not closed\"" all) (string-append all "(exit 77)"))) (lambda _
#t))) ;; 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 (native-search-paths
(list (search-path-specification (list (search-path-specification