me
/
guix
Archived
1
0
Fork 0
Code

gnu: slang: Fix build on 32 bit systems. 

* gnu/packages/slang.scm (slang)[phases]{reduce-array-test-size}: New phase.
master
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 @@
#:parallel-build? #f ; there's at least one race #:parallel-build? #f ; there's at least one race
#:phases #:phases
(modify-phases %standard-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 (add-before 'configure 'substitute-before-config
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((ncurses (assoc-ref inputs "ncurses"))) (let ((ncurses (assoc-ref inputs "ncurses")))
(substitute* "configure" (substitute* "configure"
(("MISC_TERMINFO_DIRS=\"\"") (("MISC_TERMINFO_DIRS=\"\"")
(string-append "MISC_TERMINFO_DIRS=" (string-append "MISC_TERMINFO_DIRS="
"\"" ncurses "/share/terminfo" "\""))) "\"" ncurses "/share/terminfo" "\"")))))))))
#t))))))
(inputs (inputs
`(("readline" ,readline) `(("readline" ,readline)
("zlib" ,zlib) ("zlib" ,zlib)