ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gmp: Build fix for mingw.

Browse source 
* gnu/packages/multiprecision.scm (gmp) [arguments]: Add `setenv' phase for
mingw target.
This commit is contained in:
Jan Nieuwenhuizen 2020-03-29 23:54:30 +02:00
parent 71d17a09ee
commit 3e3364fc52
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 33 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/multiprecision.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2018 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2015, 2018 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2016 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
@ -50,18 +50,38 @@ (define-public gmp
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs `(("m4" ,m4))) (native-inputs `(("m4" ,m4)))
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments `(#:parallel-tests? #f ; mpz/reuse fails otherwise (arguments
#:configure-flags `(#:parallel-tests? #f ; mpz/reuse fails otherwise
'(;; Build a "fat binary", with routines for several #:configure-flags
;; sub-architectures. '(;; Build a "fat binary", with routines for several
"--enable-fat" ;; sub-architectures.
"--enable-cxx" "--enable-fat"
,@(cond ((target-mingw?) "--enable-cxx"
;; Static and shared cannot be built in one go: ,@(cond ((target-mingw?)
;; they produce different headers. We need shared. ;; Static and shared cannot be built in one go:
`("--disable-static" ;; they produce different headers. We need shared.
"--enable-shared")) `("--disable-static"
(else '()))))) "--enable-shared"))
(else '())))
;; Remove after core-updates merge.
;; Workaround for gcc-7 transition breakage, -system and cross-build,
;; Note: See <http://bugs.gnu.org/22186> for why not 'CPATH'.
;; Note: See <http://bugs.gnu.org/30756> for why not 'C_INCLUDE_PATH' & co.
,@(if (target-mingw?)
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'setenv
(lambda _
(let ((gcc (assoc-ref %build-inputs "cross-gcc"))
(libc (assoc-ref %build-inputs "cross-libc")))
(setenv "CROSS_CPLUS_INCLUDE_PATH"
(string-append gcc "/include/c++"
":" gcc "/include"
":" libc "/include"))
(format #t "environment variable `CROSS_CPLUS_INCLUDE_PATH' set to `~a'\n"
(getenv "CROSS_CPLUS_INCLUDE_PATH"))
#t)))))
'())))
(synopsis "Multiple-precision arithmetic library") (synopsis "Multiple-precision arithmetic library")
(description (description
"The @acronym{GMP, the GNU Multiple Precision Arithmetic} library performs "The @acronym{GMP, the GNU Multiple Precision Arithmetic} library performs