(address . guix-patches@gnu.org)(name . mephi42)(address . mephi42@gmail.com)
20180216145042.28978-1-mephi42@gmail.com
* gnu/packages/bootstrap.scm (glibc-dynamic-linker): Add
"s390x-linux".
* gnu/packages/linux.scm (system->linux-architecture): Add "s390"
prefix.
---
gnu/packages/bootstrap.scm | 1 +
gnu/packages/linux.scm | 1 +
2 files changed, 2 insertions(+)
Toggle diff (26 lines)
diff --git a/gnu/packages/bootstrap.scm b/gnu/packages/bootstrap.scm
index ba733b3a9..20fcfacb8 100644
--- a/gnu/packages/bootstrap.scm
+++ b/gnu/packages/bootstrap.scm
@@ -173,6 +173,7 @@ successful, or false to signal an error."
((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")
+ ((string=? system "s390x-linux") "/lib/ld64.so.1")
;; 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 bc1c65851..f2d0fdab7 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -128,6 +128,7 @@
((string-prefix? "aarch64" arch) "arm64")
((string-prefix? "alpha" arch) "alpha")
((string-prefix? "powerpc" arch) "powerpc") ;including "powerpc64le"
+ ((string-prefix? "s390" arch) "s390")
(else arch))))
(define-public (system->defconfig system)
--
2.11.0