;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2023 Zhu Zihao ;;; Copyright © 2023, 2024 Efraim Flashner ;;; Copyright © 2024 Ashish SHUKLA ;;; ;;; 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 "2.34.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 "0s5mlnchw8sz3mafifiwhjswp91j5ja6ds946w21qws5sbwx15y7")) (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 ;; Mold only uses mimalloc on 64-bit systems, even with the ;; configure flag set, saying it is unstable on 32-bit systems. #:configure-flags #~(list #$@(if (target-64bit?) '("-DMOLD_USE_SYSTEM_MIMALLOC=ON") '("-DMOLD_USE_MIMALLOC=OFF")) "-DMOLD_USE_SYSTEM_TBB=ON" "-DBUILD_TESTING=ON") #:phases #~(modify-phases %standard-phases (add-before 'configure 'force-system-xxhash (lambda _ (substitute* "lib/common.h" (("#include \"../third-party/xxhash/xxhash.h\"") "#include ")))) (add-before 'configure 'fix-compiler-name-in-test (lambda _ (substitute* "test/common.inc" (("CC=\"\\$\\{TEST_CC:-cc\\}\"") "CC=gcc") (("CXX=\"\\$\\{TEST_CXX:-c\\+\\+\\}\"") "CXX=g++")))) (add-before 'configure 'skip-tbb-lto-test (lambda _ ;; This test needs tbb 2021.9.0 or newer (delete-file "test/lto-version-script.sh"))) (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/rpath.sh")))))) (inputs (append (if (target-64bit?) (list mimalloc) '()) (list 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)) p.scm, gnu/packages/mate.scm, gnu/packages/maths.scm, gnu/packages/mc.scm, gnu/packages/messaging.scm, gnu/packages/music.scm, gnu/packages/ncurses.scm, gnu/packages/networking.scm, gnu/packages/nickle.scm, gnu/packages/openbox.scm, gnu/packages/pdf.scm, gnu/packages/perl-check.scm, gnu/packages/perl.scm, gnu/packages/python-compression.scm, gnu/packages/python-crypto.scm, gnu/packages/python-web.scm, gnu/packages/python-xyz.scm, gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/ruby.scm, gnu/packages/rust.scm, gnu/packages/scheme.scm, gnu/packages/serialization.scm, gnu/packages/shells.scm, gnu/packages/ssh.scm, gnu/packages/suckless.scm, gnu/packages/tbb.scm, gnu/packages/telephony.scm, gnu/packages/text-editors.scm, gnu/packages/textutils.scm, gnu/packages/time.scm, gnu/packages/tls.scm, gnu/packages/tor.scm, gnu/packages/version-control.scm, gnu/packages/video.scm, gnu/packages/vim.scm, gnu/packages/web.scm, gnu/packages/wm.scm, gnu/packages/xdisorg.scm, gnu/packages/xfce.scm, gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/services/certbot.scm, gnu/services/desktop.scm, gnu/services/version-control.scm, gnu/services/web.scm, guix/import/hackage.scm, guix/licenses.scm: Correct name and email address for ng0. Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr> ng0 2019-02-13gnu: dwm: Update to 6.2....* gnu/packages/suckless.scm (dwm): Update to 6.2. Tobias Geerinckx-Rice