gnu: linux-libre: Use system->architecture.

* gnu/packages/linux.scm (linux-libre): Use system->architecture.
This commit is contained in:
David Craven 2016-09-02 17:10:52 +02:00
parent 614d1738e2
commit 6d7ef2aad2
No known key found for this signature in database
GPG key ID: C5E051C79C0BECDB

View file

@ -84,7 +84,7 @@ (define-module (gnu packages linux)
(define-public (system->linux-architecture arch)
"Return the Linux architecture name for ARCH, a Guix system name such as
\"x86_64-linux\"."
\"x86_64-linux\" or a target triplet such as \"arm-linux-gnueabihf\"."
(let ((arch (car (string-split arch #\-))))
(cond ((string=? arch "i686") "i386")
((string-prefix? "mips" arch) "mips")
@ -292,7 +292,7 @@ (define-public linux-libre
(modify-phases %standard-phases
(delete 'configure)
(replace 'build
(lambda* (#:key system inputs #:allow-other-keys #:rest args)
(lambda* (#:key inputs #:allow-other-keys #:rest args)
;; Avoid introducing timestamps
(setenv "KCONFIG_NOTIMESTAMP" "1")
(setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH"))
@ -301,12 +301,12 @@ (define-public linux-libre
(system* "patch" "-p1" "--force"
"-i" (assoc-ref inputs "patch/freedo+gnu"))
(let ((arch (car (string-split system #\-))))
(setenv "ARCH"
(cond ((string=? arch "i686") "i386")
((string=? arch "mips64el") "mips")
(else arch)))
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH")))
(let ((arch ,(system->linux-architecture
(or (%current-target-system)
(%current-system)))))
(setenv "ARCH" arch))
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
(let ((build (assoc-ref %standard-phases 'build))
(config (assoc-ref inputs "kconfig")))