02/02: gnu: Add basic support for "alpha-linux" systems.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 605fec783f630b8aa92bbfeb510f716144de90d8
Author: Sergei Trofimovich <address@hidden>
Date:   Sun Feb 19 19:31:58 2017 +0000

    gnu: Add basic support for "alpha-linux" systems.
    
    * gnu/packages/bootstrap.scm (glibc-dynamic-linker): Add
    "/lib/ld-linux.so.2" as "alpha-linux" ld.so.
    * gnu/packages/linux.scm (system->linux-architecture): Add "alpha" arch.
    
    Signed-off-by: Sergei Trofimovich <address@hidden>
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/bootstrap.scm | 1 +
 gnu/packages/linux.scm     | 1 +
 2 files changed, 2 insertions(+)

diff --git a/gnu/packages/bootstrap.scm b/gnu/packages/bootstrap.scm
index c8d94c8..b484709 100644
--- a/gnu/packages/bootstrap.scm
+++ b/gnu/packages/bootstrap.scm
@@ -167,6 +167,7 @@ successful, or false to signal an error."
         ((string=? system "i586-gnu") "/lib/ld.so.1")
         ((string=? system "i686-gnu") "/lib/ld.so.1")
         ((string=? system "aarch64-linux") "/lib/ld-linux-aarch64.so.1")
+        ((string=? system "alpha-linux") "/lib/ld-linux.so.2")
 
         ;; XXX: This one is used bare-bones, without a libc, so add a case
         ;; here just so we can keep going.
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 6e08473..de0fd71 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -106,6 +106,7 @@
           ((string-prefix? "mips" arch) "mips")
           ((string-prefix? "arm" arch) "arm")
           ((string-prefix? "aarch64" arch) "arm64")
+          ((string-prefix? "alpha" arch) "alpha")
           (else arch))))
 
 (define (linux-libre-urls version)