mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-02 16:17:27 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: slang: Fix build on 32 bit systems.

Browse source 
* gnu/packages/slang.scm (slang)[phases]{reduce-array-test-size}: New phase.
This commit is contained in:
Maxim Cournoyer 2021-11-25 17:08:11 -05:00
parent 0df12a32bb
commit efb0a04ee0
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/slang.scm
View file

@ -57,14 +57,21 @@ (define-public slang
#:parallel-build? #f ; there's at least one race
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'reduce-array-test-size
;; Reduce the size of the array, otherwise the array.sl/array.slc
;; tests fails with "Unable to create a multi-dimensional array of
;; the desired size" on 32 bit systems.
(lambda _
(substitute* "src/test/array.sl"
(("10000,10000,10000,10000,10000,10000")
"100,100,100,100,100,100"))))
(add-before 'configure 'substitute-before-config
(lambda* (#:key inputs #:allow-other-keys)
(let ((ncurses (assoc-ref inputs "ncurses")))
(substitute* "configure"
(("MISC_TERMINFO_DIRS=\"\"")
(string-append "MISC_TERMINFO_DIRS="
"\"" ncurses "/share/terminfo" "\"")))
#t))))))
"\"" ncurses "/share/terminfo" "\"")))))))))
(inputs
`(("readline" ,readline)
("zlib" ,zlib)