1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

self: Link with libgc.

guile-launcer.c uses libgc symbols on the Hurd.

* guix/self.scm (%packages): Add libgc.
(quiet-guile): Explicitly link with libgc.

Change-Id: I3c2c098af53f8d552ed9ca412e5556a645080726
Signed-off-by: Maxim Cournoyer <maxim@guixotic.coop>
This commit is contained in:
Yelninei
2026-01-09 08:20:48 +00:00
committed by Maxim Cournoyer
parent 975af2c51d
commit 82df357bb2

View File

@@ -52,6 +52,7 @@
`(gnu packages ,module))
variable)))))
`(("guile" . ,(ref 'guile 'guile-3.0-latest))
("libgc" . ,(ref 'bdw-gc 'libgc))
("guile-avahi" . ,(ref 'guile-xyz 'guile-avahi))
("guile-json" . ,(ref 'guile 'guile-json-4))
("guile-ssh" . ,(ref 'ssh 'guile-ssh))
@@ -564,6 +565,9 @@ instead of 'C'."
(define gcc
(specification->package "gcc-toolchain"))
(define libgc
(specification->package "libgc"))
(define source
(search-path %load-path
"gnu/packages/aux-files/guile-launcher.c"))
@@ -597,6 +601,10 @@ instead of 'C'."
"-L" #$(file-append guile "/lib")
"-Wl,-rpath" #$(file-append guile "/lib")
#$(string-append "-lguile-" effective)
;; On the Hurd guile-launcher.c uses libgc symbols directly
"-L" #$(file-append libgc "/lib")
"-Wl,-rpath" #$(file-append libgc "/lib")
"-lgc"
"-o" (string-append #$output "/bin/guile")))))
(computed-file "guile-wrapper" build))