diff options
| author | Zhu Zihao <all_but_last@163.com> | 2023-01-12 22:23:35 +0800 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-02-12 01:48:54 +0100 |
| commit | 4a6f64ab2afff761eb233e7ca6110d9e8acf8f32 (patch) | |
| tree | aa771e0f57e7ccc3938df632aceb9ba5a5fac6f8 | |
| parent | 16b47a95a1a8ca4f948422b273d7f21d131bfb0b (diff) | |
| download | guix-4a6f64ab2afff761eb233e7ca6110d9e8acf8f32.tar.gz guix-4a6f64ab2afff761eb233e7ca6110d9e8acf8f32.zip | |
gnu: Add mold-wrapper.
* 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>
| -rw-r--r-- | gnu/packages/mold.scm | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/gnu/packages/mold.scm b/gnu/packages/mold.scm index 5f2b75625e..dfc452a329 100644 --- a/gnu/packages/mold.scm +++ b/gnu/packages/mold.scm @@ -22,6 +22,8 @@ #:use-module (guix utils) #:use-module (guix git-download) #: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 digest) #:use-module (gnu packages tbb) @@ -81,3 +83,41 @@ It is designed to increase developer productivity by reducing build time, especially in rapid debug-edit-rebuild cycles.") (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)) |