ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 04:29:25 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: guile: Fix building on riscv64-linux.

Browse source 
* gnu/packages/guile.scm (guile-3.0)[arguments]: On riscv64-linux add
a phase to skip a failing test.
This commit is contained in:
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 @@ (define-public guile-3.0
;; 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