04/26: gnu: binutils-final: Provide bash for binary on powerpc-linux.

[guix-commits]

marusich pushed a commit to branch wip-ppc64le
in repository guix.

commit 94085d1a8146322bc0051b4d944ad3cec2c1a891
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Apr 19 18:55:57 2020 +0300

    gnu: binutils-final: Provide bash for binary on powerpc-linux.
    
    * gnu/packages/commencement.scm (binutils-final)[arguments]: On
    powerpc-linux allow a reference to static-bash-for-glibc.
    [inputs]: On powerpc-linux add static-bash-for-glibc.
---
 gnu/packages/commencement.scm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 66ae577..52a634d 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -3398,9 +3398,19 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a 
\"$@\"~%"
     (arguments
      `(#:guile ,%bootstrap-guile
        #:implicit-inputs? #f
-       #:allowed-references ("out" ,glibc-final)
+       #:allowed-references
+       ,@(match (%current-system)
+         ("powerpc-linux"
+          `(("out" ,glibc-final ,static-bash-for-glibc)))
+         (_
+          `(("out" ,glibc-final))))
        ,@(package-arguments binutils)))
-    (inputs (%boot2-inputs))))
+    (inputs
+     (match (%current-system)
+       ("powerpc-linux"
+        `(("bash" ,static-bash-for-glibc)
+          ,@(%boot2-inputs)))
+       (_ (%boot2-inputs))))))
 
 (define libstdc++
   ;; Intermediate libstdc++ that will allow us to build the final GCC