mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cross-base: Allow non-default linux-headers.

Browse source 
* gnu/packages/cross-base.scm (cross-kernel-headers): Add
LINUX-HEADERS optional argument.

Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
This commit is contained in:
Carl Dong 2019-05-28 15:57:41 +00:00 committed by Danny Milosavljevic
parent 7180dd6716
commit 2ea77d48a7
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/cross-base.scm
View file

@ -39,7 +39,8 @@ (define-module (gnu packages cross-base)
#:export (cross-binutils
cross-libc
cross-gcc
cross-newlib?))
cross-newlib?
cross-kernel-headers))
(define-syntax %xgcc
;; GCC package used as the basis for cross-compilation. It doesn't have to
@ -276,18 +277,19 @@ (define* (cross-gcc target
(define* (cross-kernel-headers target
#:optional
(linux-headers linux-libre-headers)
(xgcc (cross-gcc target))
(xbinutils (cross-binutils target)))
"Return headers depending on TARGET."
(define xlinux-headers
(package (inherit linux-libre-headers)
(name (string-append (package-name linux-libre-headers)
(package (inherit linux-headers)
(name (string-append (package-name linux-headers)
"-cross-" target))
(arguments
(substitute-keyword-arguments
`(#:implicit-cross-inputs? #f
,@(package-arguments linux-libre-headers))
,@(package-arguments linux-headers))
((#:phases phases)
`(alist-replace
'build
@ -300,7 +302,7 @@ (define xlinux-headers
,phases))))
(native-inputs `(("cross-gcc" ,xgcc)
("cross-binutils" ,xbinutils)
,@(package-native-inputs linux-libre-headers)))))
,@(package-native-inputs linux-headers)))))
(define xgnumach-headers
(package (inherit gnumach-headers)