tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

Revert "build/gnu: Do not attempt to strip Guile byte-compiled files."

Browse Source 
This reverts commit 2ac2a4877d.
This commit is contained in:
Maxim Cournoyer
2025-10-30 16:19:58 +09:00
parent d65646baf2
commit 3d2256dce6
1 changed files with 1 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
guix/build/gnu-build-system.scm
View File

@@ -518,12 +518,6 @@ makefiles."
(debug-file file))
file))
(define (guile-bytecode? file)
(and (string-suffix? ".go" file)
(elf-section-by-name
(parse-elf (call-with-input-file file get-bytevector-all))
".guile.procprops")))
(define (strip-dir dir)
(format #t "stripping binaries in ~s with ~s and flags ~s~%"
dir strip-command strip-flags)
@@ -532,11 +526,7 @@ makefiles."
debug-output objcopy-command))
(for-each (lambda (file)
(when (and (or (elf-file? file) (ar-file? file))
;; XXX: 'strip' (and 'objdump') choke on the Guile
;; byte-compiled objects, with errors like "Unable
;; to recognise the format of the input file".
(not (guile-bytecode? file)))
(when (or (elf-file? file) (ar-file? file))
;; If an error occurs while processing a file, issue a
;; warning and continue to the next file.
(guard (c ((invoke-error? c)