ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-17 04:07:10 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/gnu: Strip only ELF files.

Browse source 
Suggested by Mark H Weaver <mhw@netris.org>
at <http://lists.gnu.org/archive/html/guix-devel/2014-10/msg00395.html>.

* guix/build/gnu-build-system.scm (strip)[strip-dir]: Strip only
  when (elf-file? PATH) is true.
This commit is contained in:
Ludovic Courtès 2014-11-22 12:49:14 +01:00
parent 99533da50d
commit 50b87bd54b
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/build/gnu-build-system.scm
View file

@ -343,7 +343,8 @@ (define (strip-dir dir)
debug-output objcopy-command)) debug-output objcopy-command))
(file-system-fold (const #t) (file-system-fold (const #t)
(lambda (path stat result) ; leaf (lambda (path stat result) ; leaf
(and (or (not debug-output) (and (elf-file? path)
(or (not debug-output)
(make-debug-file path)) (make-debug-file path))
(zero? (apply system* strip-command (zero? (apply system* strip-command
(append strip-flags (list path)))) (append strip-flags (list path))))