me
/
guix
Archived
1
0
Fork 0
Code

gnu: OpenBLAS: Use G-expressions. 

* gnu/packages/maths.scm (openblas, openblas-ilp64)[arguments]: Convert to
gexp's.
master
Marius Bakke 2022-06-30 22:31:29 +02:00
parent 5e2ecfab7c
commit 8ee9d25ebc
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 62 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/maths.scm
View File

@ -4487,18 +4487,19 @@ parts of it.")
"0r4sz3rn68fyc2paq0a04pgfi7iszpm95f6ggbzxpvjzx9qxbcql")))) "0r4sz3rn68fyc2paq0a04pgfi7iszpm95f6ggbzxpvjzx9qxbcql"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:test-target "test" (list
#:test-target "test"
;; DYNAMIC_ARCH is only supported on x86. When it is disabled and no ;; DYNAMIC_ARCH is only supported on x86. When it is disabled and no
;; TARGET is specified, OpenBLAS will tune itself to the build host, so ;; TARGET is specified, OpenBLAS will tune itself to the build host, so
;; we need to disable substitutions. ;; we need to disable substitutions.
#:substitutable? #:substitutable?
,(let ((system (or (%current-target-system) (%current-system)))) (let ((system (or (%current-target-system) (%current-system))))
(or (string-prefix? "x86_64" system) (or (string-prefix? "x86_64" system)
(string-prefix? "i686" system) (string-prefix? "i686" system)
(string-prefix? "mips" system) (string-prefix? "mips" system)
(string-prefix? "aarch64" system))) (string-prefix? "aarch64" system)))
#:make-flags #:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")) #~(list (string-append "PREFIX=" #$output)
"SHELL=bash" "SHELL=bash"
"MAKE_NB_JOBS=0" ;use jobserver for submakes "MAKE_NB_JOBS=0" ;use jobserver for submakes
"NO_STATIC=1" ;avoid a 67 MiB static archive "NO_STATIC=1" ;avoid a 67 MiB static archive
@ -4514,7 +4515,7 @@ parts of it.")
;; OPENBLAS_CORETYPE=<type>, where "type" is a supported CPU type. ;; OPENBLAS_CORETYPE=<type>, where "type" is a supported CPU type.
;; Unfortunately, this is not supported on all architectures, ;; Unfortunately, this is not supported on all architectures,
;; where it leads to failed builds. ;; where it leads to failed builds.
,@(let ((system (or (%current-target-system) (%current-system)))) #$@(let ((system (or (%current-target-system) (%current-system))))
(cond (cond
((or (string-prefix? "x86_64" system) ((or (string-prefix? "x86_64" system)
(string-prefix? "i686" system) (string-prefix? "i686" system)
@ -4537,7 +4538,7 @@ parts of it.")
(else '())))) (else '()))))
;; no configure script ;; no configure script
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-before 'build 'set-extralib (add-before 'build 'set-extralib
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
@ -4563,9 +4564,9 @@ parts of it.")
(supported-systems '("x86_64-linux" "aarch64-linux" "mips64el-linux")) (supported-systems '("x86_64-linux" "aarch64-linux" "mips64el-linux"))
(arguments (arguments
(substitute-keyword-arguments (package-arguments openblas) (substitute-keyword-arguments (package-arguments openblas)
((#:make-flags flags '()) ((#:make-flags flags #~'())
`(append (list "INTERFACE64=1" "LIBNAMESUFFIX=ilp64") #~(append (list "INTERFACE64=1" "LIBNAMESUFFIX=ilp64")
,flags)))) #$flags))))
(synopsis "Optimized BLAS library based on GotoBLAS (ILP64 version)") (synopsis "Optimized BLAS library based on GotoBLAS (ILP64 version)")
(license license:bsd-3))) (license license:bsd-3)))