mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "Partial revert "gnu: bootstrap: %bootstrap-gcc: Also wrap g++ for the 64bit Hurd.""

Browse source 
This cleanup was reverted because it led to a world rebuild.

This reverts commit 006679d1e6.

Change-Id: Id14fcc35fb8d550644b4d6cebace110ae0bab59e
This commit is contained in:
Janneke Nieuwenhuizen 2024-12-05 20:54:58 +01:00
parent bde32a3d88
commit b745f4fd20
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 23 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
gnu/packages/bootstrap.scm
View file

@ -774,14 +774,14 @@ (define %bootstrap-glibc
(chmod "lib" #o755)
;; Patch linker scripts so they refer to the right file-names.
,@(if (target-hurd64?)
'((substitute* '("lib/libc.so" "lib/libm.so")
(("/[^ ]+/lib/(libc|libm|libh|ld)" _ prefix)
(string-append out "/lib/" prefix))))
'((substitute* "lib/libc.so"
(("/[^ ]+/lib/(libc|ld)" _ prefix)
(string-append out "/lib/" prefix)))
#t))))))))
,(if (target-hurd64?)
'(substitute* '("lib/libc.so" "lib/libm.so")
(("/[^ ]+/lib/(libc|libm|libh|ld)" _ prefix)
(string-append out "/lib/" prefix)))
'(substitute* "lib/libc.so"
(("/[^ ]+/lib/(libc|ld)" _ prefix)
(string-append out "/lib/" prefix))))
#t))))))
(inputs
`(("tar" ,(bootstrap-executable "tar" (%current-system)))
("xz" ,(bootstrap-executable "xz" (%current-system)))
@ -873,22 +873,20 @@ (define %bootstrap-gcc
(let ((builddir (getcwd))
(bindir (string-append out "/bin")))
,@(if (target-hurd64?)
`((define (wrap-program program)
(let ((wrapped (format #f ".~a-wrapped" program)))
(rename-file program wrapped)
(call-with-output-file program
(lambda (p)
(format p "#!~a
(define (wrap-program program)
(let ((wrapped (format #f ".~a-wrapped" program)))
(rename-file program wrapped)
(call-with-output-file program
(lambda (p)
(format p "#!~a
exec ~a/bin/~a -B~a/lib \
-Wl,-rpath -Wl,~a/lib \
-Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
bash
out wrapped
libc libc libc
,(glibc-dynamic-linker)))))
(chmod program #o555)))
'())
bash
out wrapped
libc libc libc
,(glibc-dynamic-linker)))))
(chmod program #o555))
(with-directory-excursion out
(invoke tar "xvf"
@ -896,21 +894,10 @@ (define %bootstrap-gcc
(with-directory-excursion bindir
(chmod "." #o755)
,@(if (target-hurd64?)
`((for-each wrap-program '("gcc" "g++")))
`((rename-file "gcc" ".gcc-wrapped")
(call-with-output-file "gcc"
(lambda (p)
(format p "#!~a
exec ~a/bin/.gcc-wrapped -B~a/lib \
-Wl,-rpath -Wl,~a/lib \
-Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
bash
out libc libc libc
,(glibc-dynamic-linker))))
(chmod "gcc" #o555)
#t))))))))
(for-each wrap-program
,(if (target-hurd64?)
''("gcc" "g++")
''("gcc")))))))))
(inputs
`(("tar" ,(bootstrap-executable "tar" (%current-system)))
("xz" ,(bootstrap-executable "xz" (%current-system)))