futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: openpmix: Do not keep a reference to GCC and other build tools.

Browse Source 
This reduces the closure of ‘openpmix’ from 297 MiB to 93 MiB.

* gnu/packages/parallel.scm (openpmix)[arguments]: Add #:phases
and #:disallowed-references.

Change-Id: I231c550743e2854e431b8100584bd464695de695
This commit is contained in:
Ludovic Courtès 2024-09-10 10:33:57 +02:00 committed by Ludovic Courtès
parent f18269421d
commit 3daab04414
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/parallel.scm
View File

@ -52,6 +52,7 @@
#:use-module (gnu packages documentation) #:use-module (gnu packages documentation)
#:use-module (gnu packages flex) #:use-module (gnu packages flex)
#:use-module (gnu packages freeipmi) #:use-module (gnu packages freeipmi)
#:use-module (gnu packages gcc)
#:use-module (gnu packages libevent) #:use-module (gnu packages libevent)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages maths) #:use-module (gnu packages maths)
@ -646,7 +647,29 @@ single-instruction multiple-data (SIMD) intrinsics.")
(arguments (arguments
(list #:configure-flags (list #:configure-flags
#~(list (string-append "--with-hwloc=" #~(list (string-append "--with-hwloc="
(ungexp (this-package-input "hwloc") "lib"))))) (ungexp (this-package-input "hwloc") "lib")))
;; Don't keep a reference to GCC.
#:disallowed-references (and (not (%current-target-system))
(list (canonical-package gcc)))
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'strip-pmix-cc-absolute
(lambda _
;; The 'pmix_info' program prints the 'configure' command
;; line, compiler absolute file name, etc., which causes it
;; to keep references to many build-time packages. Scrub
;; these.
(substitute* "configure"
(("PMIX_CC_ABSOLUTE=\"(.*)\"" _ cc)
(string-append "PMIX_CC_ABSOLUTE=\"$(basename \""
cc "\")\"\n")))))
(add-after 'configure 'strip-pmix-config-header
(lambda _
(substitute* "src/include/pmix_config.h"
(("#define PMIX_CONFIGURE_CLI .*")
"#define PMIX_CONFIGURE_CLI \"[scrubbed]\"\n")))))))
(inputs (list libevent `(,hwloc "lib"))) (inputs (list libevent `(,hwloc "lib")))
(native-inputs (list perl python)) (native-inputs (list perl python))
(synopsis "PMIx library") (synopsis "PMIx library")