[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 03/17] gnu: linux-libre: Use system->architecture.
From: |
David Craven |
Subject: |
[PATCH 03/17] gnu: linux-libre: Use system->architecture. |
Date: |
Fri, 9 Sep 2016 14:34:12 +0200 |
* gnu/packages/linux.scm (linux-libre): Use system->architecture.
---
gnu/packages/linux.scm | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index e19712f..1544811 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -292,7 +292,7 @@ for SYSTEM and optionally VARIANT, or #f if there is no
such configuration."
(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 @@ for SYSTEM and optionally VARIANT, or #f if there is no
such configuration."
(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")))
--
2.9.0
- Linux kernel, David Craven, 2016/09/08
- [PATCH 07/17] gnu: linux-libre: Use make-linux-libre., David Craven, 2016/09/09
- Re: [PATCH 07/17] gnu: linux-libre: Use make-linux-libre., Ludovic Courtès, 2016/09/11
- [PATCH 08/17] gnu: make-linux-libre: Add additional-configuration parameter., David Craven, 2016/09/09
- Re: [PATCH 08/17] gnu: make-linux-libre: Add additional-configuration parameter., Ludovic Courtès, 2016/09/11
- [PATCH 09/17] gnu: dtc: Remove patch-paths phase., David Craven, 2016/09/09
- Re: [PATCH 09/17] gnu: dtc: Remove patch-paths phase., Ludovic Courtès, 2016/09/11
- [PATCH 10/17] gnu: Add u-boot-beagle-bone-black., David Craven, 2016/09/09
- Re: [PATCH 10/17] gnu: Add u-boot-beagle-bone-black., Ludovic Courtès, 2016/09/11