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.
This commit is contained in:
Ludovic Courtès 2017-07-07 14:28:24 +02:00 committed by Ludovic Courtès
parent 6b994438b0
commit c89e210788
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 4 additions and 0 deletions

View file

@ -162,6 +162,7 @@ (define* (glibc-dynamic-linker
gnu-triplet->nix-system) gnu-triplet->nix-system)
(%current-system)))) (%current-system))))
"Return the name of Glibc's dynamic linker for 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") (cond ((string=? system "x86_64-linux") "/lib/ld-linux-x86-64.so.2")
((string=? system "i686-linux") "/lib/ld-linux.so.2") ((string=? system "i686-linux") "/lib/ld-linux.so.2")
((string=? system "armhf-linux") "/lib/ld-linux-armhf.so.3") ((string=? system "armhf-linux") "/lib/ld-linux-armhf.so.3")
@ -170,6 +171,7 @@ (define* (glibc-dynamic-linker
((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 "powerpc-linux") "/lib/ld.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") ((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

View file

@ -123,6 +123,7 @@ (define-public (system->linux-architecture arch)
((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") ((string-prefix? "alpha" arch) "alpha")
((string-prefix? "powerpc" arch) "powerpc") ;including "powerpc64le"
(else arch)))) (else arch))))
(define-public (system->defconfig system) (define-public (system->defconfig system)
@ -130,6 +131,7 @@ (define-public (system->defconfig system)
defconfig. Return the appropiate make target if applicable, otherwise return defconfig. Return the appropiate make target if applicable, otherwise return
\"defconfig\"." \"defconfig\"."
(cond ((string-prefix? "powerpc-" system) "pmac32_defconfig") (cond ((string-prefix? "powerpc-" system) "pmac32_defconfig")
((string-prefix? "powerpc64le-" system) "ppc64_defconfig")
(else "defconfig"))) (else "defconfig")))
(define (linux-libre-urls version) (define (linux-libre-urls version)