02/03: Revert "gnu: Add replacement for static-bash-for-glibc."

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 48b97be90bbbdf3108e70d9e23bc8f296d4451b5
Author: Ricardo Wurmus <address@hidden>
Date:   Wed Mar 14 16:26:24 2018 +0100

    Revert "gnu: Add replacement for static-bash-for-glibc."
    
    This reverts commit c4fb2b9f4e9ca1c5b586090b765b51b2a5042eff.
---
 gnu/packages/commencement.scm | 42 ------------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 94847b0..fe9fbeb 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -556,14 +556,6 @@ the bootstrap environment."
         ;; because we don't want to depend on bootstrap tools.
         ("static-bash" ,@(assoc-ref %boot0-inputs "bash")))))))
 
-(define patched-glibc-final-with-bootstrap-bash
-  (package
-    (inherit glibc-final-with-bootstrap-bash)
-    (source (origin
-              (inherit (package-source glibc-final-with-bootstrap-bash))
-              (patches (cons (search-patch "glibc-allow-kernel-2.6.32.patch")
-                             (origin-patches (package-source 
glibc-final-with-bootstrap-bash))))))))
-
 (define (cross-gcc-wrapper gcc binutils glibc bash)
   "Return a wrapper for the pseudo-cross toolchain GCC/BINUTILS/GLIBC
 that makes it available under the native tool names."
@@ -640,40 +632,6 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a 
\"address@hidden"~%"
                    ("libc:static" ,glibc-final-with-bootstrap-bash "static")
                    ,@(fold alist-delete %boot1-inputs
                            '("gcc" "libc")))))
-    (let ((p (package-with-bootstrap-guile
-              (package-with-explicit-inputs bash inputs
-                                            (current-source-location)
-                                            #:guile %bootstrap-guile))))
-      (package (inherit p)
-               (replacement patched-static-bash-for-glibc)))))
-
-;; Same as static-bash-for-glibc, except that it uses a patched glibc for the
-;; "gcc" and "bash" packages.
-(define patched-static-bash-for-glibc
-  ;; A statically-linked Bash to be used by GLIBC-FINAL in system(3) & co.
-  (let* ((gcc  (cross-gcc-wrapper gcc-boot0 binutils-boot0
-                                  patched-glibc-final-with-bootstrap-bash
-                                  (car (assoc-ref %boot1-inputs "bash"))))
-         (bash (package
-                 (inherit static-bash)
-                 (arguments
-                  (substitute-keyword-arguments
-                      (package-arguments static-bash)
-                    ((#:guile _ #f)
-                     '%bootstrap-guile)
-                    ((#:configure-flags flags '())
-                     ;; Add a '-L' flag so that the pseudo-cross-ld of
-                     ;; BINUTILS-BOOT0 can find libc.a.
-                     `(append ,flags
-                              (list (string-append "LDFLAGS=-static -L"
-                                                   (assoc-ref %build-inputs
-                                                              "libc:static")
-                                                   "/lib"))))))))
-         (inputs `(("gcc" ,gcc)
-                   ("libc" ,patched-glibc-final-with-bootstrap-bash)
-                   ("libc:static" ,patched-glibc-final-with-bootstrap-bash 
"static")
-                   ,@(fold alist-delete %boot1-inputs
-                           '("gcc" "libc")))))
     (package-with-bootstrap-guile
      (package-with-explicit-inputs bash inputs
                                    (current-source-location)