;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2023 Zhu Zihao ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages mold) #:use-module (guix gexp) #:use-module (guix packages) #: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) #:use-module (gnu packages tls) #:use-module (gnu packages compression) #:use-module ((guix licenses) #:prefix license:)) (define-public mold (package (name "mold") (version "1.10.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/rui314/mold") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1bqv1a93n3nks38k8fdc5i7v7ca2sav8n4xxaph0ikaqw1mkjcg7")) (modules '((guix build utils))) (snippet #~(begin (for-each (lambda (x) (delete-file-recursively (string-append "third-party/" x))) '("mimalloc" "tbb" "xxhash" "zlib" "zstd")))))) (build-system cmake-build-system) (arguments (list #:configure-flags #~(list "-DMOLD_USE_SYSTEM_MIMALLOC=ON" "-DMOLD_USE_SYSTEM_TBB=ON") #:phases #~(modify-phases %standard-phases (add-before 'configure 'force-system-xxhash (lambda _ (substitute* "common/common.h" (("#include \"../third-party/xxhash/xxhash.h\"") "#include ")))) (add-before 'configure 'fix-compiler-name-in-test (lambda _ (substitute* "test/elf/common.inc" (("CC=\"\\$\\{TEST_CC:-cc\\}\"") "CC=gcc") (("CXX=\"\\$\\{TEST_CXX:-c\\+\\+\\}\"") "CXX=g++")))) (add-before 'configure 'disable-rpath-test (lambda _ ;; This test fails because mold expect the RUNPATH as-is, ;; but compiler in Guix will insert the path of gcc-lib and ;; glibc into the output binary. (delete-file "test/elf/rpath.sh")))))) (inputs (list mimalloc openssl tbb xxhash zlib `(,zstd "lib"))) (home-page "https://github.com/rui314/mold") (synopsis "Fast linker") (description "Mold is a faster drop-in replacement for existing linkers. 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)) nger fit in memory, starting from commit 8c7eb58453870f380a077c7cfd8dafa97bb8e13f. * gnu/tests/docker.scm (run-docker-system-test): Set 'memory-size' to 3500. Ludovic Courtès 2019-11-09tests: Update references to the now-deprecated 'guile-json' variable....* gnu/tests/docker.scm (build-tarball&run-docker-test): Refer to 'guile-json-3' instead of 'guile-json'. * gnu/tests/singularity.scm (build-tarball&run-singularity-test): Likewise. Ludovic Courtès 2019-08-27pack: Create /tmp in Docker images....Fixes <https://bugs.gnu.org/37161>. * guix/scripts/pack.scm (docker-image)[build]: Add a 'directory' entry for "/tmp" to DIRECTIVES. * tests/pack.scm ("docker-image + localstatedir"): Test the presence of /tmp. * gnu/tests/docker.scm (run-docker-test)["Load docker image and run it"]: Test the presence and permission bits of "/tmp". Ludovic Courtès 2019-07-04pack: 'docker' backend records the profile's search paths....* guix/docker.scm (config): Add #:environment parameter and honor it. (build-docker-image): Likewise, and pass it to 'config'. * guix/scripts/pack.scm (docker-image): Import (guix profiles) and (guix search-paths). Call 'profile-search-paths' and pass #:environment to 'build-docker-image'. * gnu/tests/docker.scm (run-docker-test)["Load docker image and run it"]: Add example that expects (json) to be available. * gnu/tests/docker.scm (build-tarball&run-docker-test): Replace %BOOTSTRAP-GUILE by GUILE-2.2 and GUILE-JSON in the environment. Ludovic Courtès