ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 22:26:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add mold-wrapper.

Browse source 
* gnu/packages/mold.scm(make-mold-wrapper): New variable.
(mold-wrapper): New variable.
(mold-as-ld-wrapper): New variable.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Zhu Zihao 2023-01-12 22:23:35 +08:00 committed by Ludovic Courtès
parent 16b47a95a1
commit 4a6f64ab2a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 40 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
gnu/packages/mold.scm
View file

@ -22,6 +22,8 @@ (define-module (gnu packages mold)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system trivial)
#:use-module (gnu packages base)
#:use-module (gnu packages c) #:use-module (gnu packages c)
#:use-module (gnu packages digest) #:use-module (gnu packages digest)
#:use-module (gnu packages tbb) #:use-module (gnu packages tbb)
@ -81,3 +83,41 @@ (define-public mold
It is designed to increase developer productivity by reducing build time, It is designed to increase developer productivity by reducing build time,
especially in rapid debug-edit-rebuild cycles.") especially in rapid debug-edit-rebuild cycles.")
(license license:agpl3))) (license license:agpl3)))
(define* (make-mold-wrapper mold #:key mold-as-ld?)
"Return a MOLD wrapper. When MOLD-AS-LD? is true, create a 'ld' symlink that
points to 'mold'."
(package
(inherit mold)
(name (if mold-as-ld? "mold-as-ld-wrapper" "mold-wrapper"))
(source #f)
(native-inputs '())
(inputs (list (make-ld-wrapper "ld.mold-wrapper" #:binutils mold
#:linker "ld.mold")
(make-ld-wrapper "mold-wrapper" #:binutils mold #:linker
"mold")))
(propagated-inputs '())
(build-system trivial-build-system)
(arguments
(list #:builder
#~(let ((ld.mold (string-append #$(this-package-input
"ld.mold-wrapper")
"/bin/ld.mold"))
(mold (string-append #$(this-package-input "mold-wrapper")
"/bin/mold")))
(mkdir #$output)
(mkdir (string-append #$output "/bin"))
(symlink ld.mold (string-append #$output "/bin/ld.mold"))
(symlink mold (string-append #$output "/bin/mold"))
(when #$mold-as-ld?
(symlink ld.mold (string-append #$output "/bin/ld"))))))
(synopsis "Mold linker wrapper")
(description "This is a linker wrapper for Mold; like @code{ld-wrapper}, it
wraps the linker to add any missing @code{-rpath} flags, and to detect any
misuse of libraries outside of the store.")))
(define-public mold-wrapper
(make-mold-wrapper mold))
(define-public mold-as-ld-wrapper
(make-mold-wrapper mold #:mold-as-ld? #t))