01/01: gnu: cross-base: Don't build the cross-compilers with target = host.

[Ludovic Courtès]

civodul pushed a commit to branch core-updates
in repository guix.

commit 9fdd80e8f28a7d48615fa4d5652e81ea5f679485
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jan 14 21:14:14 2015 +0100

    gnu: cross-base: Don't build the cross-compilers with target = host.
    
    * gnu/packages/cross-base.scm (xgcc-mips64el)[supported-systems]: Delete
      "mips64el-linux".
      (xgcc-armhf)[supported-systems]: Delete "armhf-linux".
---
 gnu/packages/cross-base.scm |   15 +++++++++------
 1 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/cross-base.scm b/gnu/packages/cross-base.scm
index a062128..5a67d4b 100644
--- a/gnu/packages/cross-base.scm
+++ b/gnu/packages/cross-base.scm
@@ -315,8 +315,9 @@ XBINUTILS and the cross tool chain."
     ;; Don't attempt to build this cross-compiler on i686;
     ;; see <http://bugs.gnu.org/19598>.
     (package (inherit xgcc)
-      (supported-systems (delete "i686-linux"
-                                 (package-supported-systems xgcc))))))
+      (supported-systems (fold delete
+                               (package-supported-systems xgcc)
+                               '("mips64el-linux" "i686-linux"))))))
 
 (define-public xgcc-avr
   ;; AVR cross-compiler, used to build AVR-Libc.
@@ -329,10 +330,12 @@ XBINUTILS and the cross tool chain."
   (cross-gcc "xtensa-elf"))
 
 (define-public xgcc-armhf
-  (let ((triplet "arm-linux-gnueabihf"))
-    (cross-gcc triplet
-               (cross-binutils triplet)
-               (cross-libc triplet))))
+  (let* ((triplet "arm-linux-gnueabihf")
+         (xgcc    (cross-gcc triplet
+                             (cross-binutils triplet)
+                             (cross-libc triplet))))
+    (package (inherit xgcc)
+      (supported-systems (delete "armhf-linux" %supported-systems)))))
 
 ;; (define-public xgcc-armel
 ;;   (let ((triplet "armel-linux-gnueabi"))