mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
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:
parent
d6abd094fc
commit
605fec783f
2 changed files with 2 additions and 0 deletions
|
@ -167,6 +167,7 @@ (define* (glibc-dynamic-linker
|
|||
((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.
|
||||
|
|
|
@ -106,6 +106,7 @@ (define-public (system->linux-architecture arch)
|
|||
((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)
|
||||
|
|
Loading…
Reference in a new issue