[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: gemma: Fix building on 32-bit architectures.
From: |
Efraim Flashner |
Subject: |
01/02: gnu: gemma: Fix building on 32-bit architectures. |
Date: |
Thu, 15 Jun 2017 03:33:07 -0400 (EDT) |
efraim pushed a commit to branch master
in repository guix.
commit 2c9232ae698c66de0de0bc67251ed95f2bc79491
Author: Efraim Flashner <address@hidden>
Date: Thu Jun 15 10:17:08 2017 +0300
gnu: gemma: Fix building on 32-bit architectures.
* gnu/packages/bioinformatics.scm (gemma)[arguments]: On 32-bit
architectures add 'FORCE_32BIT' flag.
---
gnu/packages/bioinformatics.scm | 16 ++++++++++++----
1 file changed, 12 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index b47f136..21c4d09 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -97,7 +97,8 @@
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
#:use-module (gnu packages zip)
- #:use-module (srfi srfi-1))
+ #:use-module (srfi srfi-1)
+ #:use-module (srfi srfi-26))
(define-public r-ape
(package
@@ -2718,19 +2719,26 @@ comment or quality sections.")
("zlib" ,zlib)))
(build-system gnu-build-system)
(arguments
- `(#:make-flags '("FORCE_DYNAMIC=1") ; use shared libs
+ `(#:make-flags
+ '(,@(if (any (cute string-prefix? <> (or (%current-system)
+ (%current-target-system)))
+ '("x86_64" "mips64el" "aarch64"))
+ '("FORCE_DYNAMIC=1") ; use shared libs
+ '("FORCE_DYNAMIC=1" "FORCE_32BIT=1")))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'bin-mkdir
(lambda _
- (mkdir-p "bin")))
+ (mkdir-p "bin")
+ #t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "bin/gemma"
(string-append
- out "/bin"))))))
+ out "/bin")))
+ #t)))
#:tests? #f)) ; no tests included yet
(home-page "https://github.com/xiangzhou/GEMMA")
(synopsis "Tool for genome-wide efficient mixed model association")