From efb0a04ee05f43e86b3c1fcda867a123d8ed021a Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Thu, 25 Nov 2021 17:08:11 -0500 Subject: [PATCH] gnu: slang: Fix build on 32 bit systems. * gnu/packages/slang.scm (slang)[phases]{reduce-array-test-size}: New phase. --- gnu/packages/slang.scm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/gnu/packages/slang.scm b/gnu/packages/slang.scm index 404a4535ca..e3c9134d60 100644 --- a/gnu/packages/slang.scm +++ b/gnu/packages/slang.scm @@ -57,14 +57,21 @@ #: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)