01/03: gnu: Add basic support for powerpc64le-linux-gnu targets.

[Ludovic Courtès]

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

commit c89e21078862bd29b70a3bc0f33d160c59720364
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jul 7 14:28:24 2017 +0200

    gnu: Add basic support for powerpc64le-linux-gnu targets.
    
    * gnu/packages/bootstrap.scm (glibc-dynamic-linker): Add
    "powerpc64le-linux".
    * gnu/packages/linux.scm (system->linux-architecture): Add "powerpc"
    prefix.
    (system->defconfig): Add "powerpc64le-" prefix.
---
 gnu/packages/bootstrap.scm | 2 ++
 gnu/packages/linux.scm     | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/gnu/packages/bootstrap.scm b/gnu/packages/bootstrap.scm
index f43decc..ba733b3 100644
--- a/gnu/packages/bootstrap.scm
+++ b/gnu/packages/bootstrap.scm
@@ -162,6 +162,7 @@ successful, or false to signal an error."
                                         gnu-triplet->nix-system)
                                  (%current-system))))
   "Return the name of Glibc's dynamic linker for SYSTEM."
+  ;; See the 'SYSDEP_KNOWN_INTERPRETER_NAMES' cpp macro in libc.
   (cond ((string=? system "x86_64-linux") "/lib/ld-linux-x86-64.so.2")
         ((string=? system "i686-linux") "/lib/ld-linux.so.2")
         ((string=? system "armhf-linux") "/lib/ld-linux-armhf.so.3")
@@ -170,6 +171,7 @@ successful, or false to signal an error."
         ((string=? system "i686-gnu") "/lib/ld.so.1")
         ((string=? system "aarch64-linux") "/lib/ld-linux-aarch64.so.1")
         ((string=? system "powerpc-linux") "/lib/ld.so.1")
+        ((string=? system "powerpc64le-linux") "/lib/ld64.so.2")
         ((string=? system "alpha-linux") "/lib/ld-linux.so.2")
 
         ;; XXX: This one is used bare-bones, without a libc, so add a case
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 28a060f..100440a 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -123,6 +123,7 @@
           ((string-prefix? "arm" arch) "arm")
           ((string-prefix? "aarch64" arch) "arm64")
           ((string-prefix? "alpha" arch) "alpha")
+          ((string-prefix? "powerpc" arch) "powerpc") ;including "powerpc64le"
           (else arch))))
 
 (define-public (system->defconfig system)
@@ -130,6 +131,7 @@
 defconfig.  Return the appropiate make target if applicable, otherwise return
 \"defconfig\"."
   (cond ((string-prefix? "powerpc-" system) "pmac32_defconfig")
+        ((string-prefix? "powerpc64le-" system) "ppc64_defconfig")
         (else "defconfig")))
 
 (define (linux-libre-urls version)