TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source 
This reverts commit c4fb2b9f4e.
This commit is contained in:
Ricardo Wurmus 2018-03-14 16:26:24 +01:00
parent 9c9912cf5b
commit 48b97be90b
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 0 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
gnu/packages/commencement.scm
View file

@ -556,14 +556,6 @@ (define glibc-final-with-bootstrap-bash
;; 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 @@ (define static-bash-for-glibc
("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)