amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: make-rust-sysroot: Accept other mingw targets.

Browse source 
* gnu/packages/rust.scm (make-rust-sysroot/implementation)[arguments]:
Adjust the custom 'patch-for-mingw phase to generate the name of the
mingw input package based on the target architecture.
[inputs, native-inputs]: Use make-mingw-w64 to choose the mingw package
for the target.

Change-Id: I48638095a504675753e65fdb6f0286c31cebde66
This commit is contained in:
Efraim Flashner 2024-12-05 13:20:18 +02:00
parent 76bc375080
commit be53521d4c
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 23 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

29
gnu/packages/rust.scm
View file

@ -1487,24 +1487,23 @@ exec -a \"$0\" \"~a\" \"$@\""
#$@(if (target-mingw? target)
`((add-after 'set-env 'patch-for-mingw
(lambda* (#:key inputs #:allow-other-keys)
(let* ((arch ,(string-take target
(string-index target #\-)))
(mingw (assoc-ref inputs
(string-append "mingw-w64-" arch
"-winpthreads"))))
(setenv "LIBRARY_PATH"
(string-join
(delete
(string-append
(or (assoc-ref inputs "mingw-w64-i686-winpthreads")
(assoc-ref inputs "mingw-w64-x86_64-winpthreads"))
"/lib")
(string-append mingw "/lib")
(string-split (getenv "LIBRARY_PATH") #\:))
":"))
(setenv "CPLUS_INCLUDE_PATH"
(string-join
(delete
(string-append
(or (assoc-ref inputs "mingw-w64-i686-winpthreads")
(assoc-ref inputs "mingw-w64-x86_64-winpthreads"))
"/include")
(string-append mingw "/include")
(string-split (getenv "CPLUS_INCLUDE_PATH") #\:))
":"))
":")))
;; When building a rust-sysroot this crate is only used for
;; the rust-installer.
(substitute* '("vendor/num_cpus-1.13.0/src/linux.rs"
@ -1610,9 +1609,9 @@ ar = \"" (search-input-file inputs (string-append "/bin/" #$(ar-for-target targe
(if (target-mingw? target)
(modify-inputs (package-propagated-inputs base-rust)
(prepend
(if (string=? "i686-w64-mingw32" target)
mingw-w64-i686-winpthreads
mingw-w64-x86_64-winpthreads)))
(make-mingw-w64
(string-take target (string-index target #\-))
#:with-winpthreads? #t)))
(package-propagated-inputs base-rust)))
(native-inputs
(if (target-mingw? target)
@ -1620,9 +1619,9 @@ ar = \"" (search-input-file inputs (string-append "/bin/" #$(ar-for-target targe
(prepend (cross-gcc target
#:libc (cross-libc target))
(cross-binutils target)
(if (string=? "i686-w64-mingw32" target)
mingw-w64-i686-winpthreads
mingw-w64-x86_64-winpthreads)))
(make-mingw-w64
(string-take target (string-index target #\-))
#:with-winpthreads? #t)))
(modify-inputs (package-native-inputs base-rust)
(prepend (cross-gcc target
#:libc (cross-libc target))