guix_mirror_bot pushed a commit to branch add-compress-debug-symbols-phase in repository guix.
commit 11357f07977a027d3f5ed47fc135c8bff11a2e05 Author: Maxim Cournoyer <[email protected]> AuthorDate: Sun Oct 19 23:35:20 2025 +0900 build/gnu-build-system: Add a compress-debug-info phase. This new phase reduces the debug output of large C++ packages such as qtdeclarative by about 20%. * guix/build/gnu-build-system.scm (compress-debug-info): New procedure. (%standard-phases): Register it. Relates-to: #3617 Change-Id: I9463f1299d97c20eee5d6f685a2f1abbb05545f0 --- guix/build/gnu-build-system.scm | 53 ++++++++++++++++++++++++++++++++++++++++- 1 file changed, 52 insertions(+), 1 deletion(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 63bbeae605..7f8a6512d7 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -567,6 +567,57 @@ makefiles." strip-directories))) outputs)))) +(define* (compress-debug-info + #:key parallel-build? target outputs + (objcopy-command (if target + (string-append target "-objcopy") + "objcopy")) + (dwz-command (which "dwz")) + #:allow-other-keys) + (define debug-output (assoc-ref outputs "debug")) + (when debug-output + (let* ((common-file (string-append debug-output + "/lib/debug/" (assoc-ref outputs "out") + "/common.debug")) + (shared-object-file? + (lambda (file) + (and (elf-file? file) + (member (call-with-input-file file + (compose elf-type parse-elf + get-bytevector-all)) + (list ET_EXEC ET_DYN))))) + ;; DWZ only operates on ELF shared object files. + (debug-files (find-files debug-output + (lambda (f st) + ;; Ignore symlinks. + (and (eq? 'regular (stat:type st)) + (shared-object-file? f))) + #:stat lstat)) + (debug-files-count (length debug-files))) + (unless (zero? debug-files-count) + (when dwz-command ;may not be available in early bootstrap + (when (> debug-files-count 1) + (mkdir-p (dirname common-file))) + ;; Deduplicate debug symbols with DWZ. + (apply invoke dwz-command + "-j" (number->string (if parallel-build? + (parallel-job-count) + 1)) + `(,@(if (> debug-files-count 1) + `("--multifile" ,common-file) + '()) + ,@debug-files))) + ;; Compress the debug sections with Zstd (or Zlib, when Zstd support + ;; is not available, e.g. in early bootstrap). + (for-each (lambda (f) + (make-file-writable f) + (or (false-if-exception + (invoke objcopy-command + "--compress-debug-sections=zstd" f)) + (invoke objcopy-command + "--compress-debug-sections=zlib" f))) + debug-files))))) + (define* (validate-runpath #:key (validate-runpath? #t) (elf-directories '("lib" "lib64" "libexec" @@ -941,7 +992,7 @@ that traversing all the RUNPATH entries entails." patch-usr-bin-file patch-source-shebangs configure patch-generated-file-shebangs build check install - patch-shebangs strip + patch-shebangs strip compress-debug-info validate-runpath validate-documentation-location delete-info-dir-file
