[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

05/05: build-system/gnu: Strip only ELF files.

From: Ludovic Courtès
Subject: 05/05: build-system/gnu: Strip only ELF files.
Date: Sat, 22 Nov 2014 11:52:40 +0000

civodul pushed a commit to branch core-updates
in repository guix.

commit 50b87bd54b7fd5fe5cb3482d7801d5e74d0c2fb3
Author: Ludovic Courtès <address@hidden>
Date:   Sat Nov 22 12:49:14 2014 +0100

    build-system/gnu: Strip only ELF files.
    Suggested by Mark H Weaver <address@hidden>
    at <>.
    * guix/build/gnu-build-system.scm (strip)[strip-dir]: Strip only
      when (elf-file? PATH) is true.
 guix/build/gnu-build-system.scm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index afed601..a813606 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -343,7 +343,8 @@ makefiles."
               debug-output objcopy-command))
     (file-system-fold (const #t)
                       (lambda (path stat result)  ; leaf
-                        (and (or (not debug-output)
+                        (and (elf-file? path)
+                             (or (not debug-output)
                                  (make-debug-file path))
                              (zero? (apply system* strip-command
                                            (append strip-flags (list path))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]