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 <slyfox@inbox.ru>
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Sergei Trofimovich 2017-02-19 19:31:58 +00:00 committed by Ludovic Courtès
parent d6abd094fc
commit 605fec783f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 2 additions and 0 deletions

View File

@ -167,6 +167,7 @@ successful, or false to signal an error."
((string=? system "i586-gnu") "/lib/ld.so.1") ((string=? system "i586-gnu") "/lib/ld.so.1")
((string=? system "i686-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 "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 ;; XXX: This one is used bare-bones, without a libc, so add a case
;; here just so we can keep going. ;; here just so we can keep going.

View File

@ -106,6 +106,7 @@
((string-prefix? "mips" arch) "mips") ((string-prefix? "mips" arch) "mips")
((string-prefix? "arm" arch) "arm") ((string-prefix? "arm" arch) "arm")
((string-prefix? "aarch64" arch) "arm64") ((string-prefix? "aarch64" arch) "arm64")
((string-prefix? "alpha" arch) "alpha")
(else arch)))) (else arch))))
(define (linux-libre-urls version) (define (linux-libre-urls version)