summaryrefslogtreecommitdiff
path: root/guix/build/gnu-build-system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-12-29 21:44:48 +0100
committerLudovic Courtès <ludo@gnu.org>2014-12-29 21:54:12 +0100
commit7da473b75721e06237b106c6d186f2729117b1ee (patch)
tree51590bf15e86eb469dfe640b5532cc2cd6b14708 /guix/build/gnu-build-system.scm
parentf05bdc9412135f34a1c417edc203c35cd005d0d5 (diff)
downloadguix-patches-7da473b75721e06237b106c6d186f2729117b1ee.tar
guix-patches-7da473b75721e06237b106c6d186f2729117b1ee.tar.gz
gnu: Revert use of '--strip-all'.
This reverts commits f05bdc9412135f34a1c417edc203c35cd005d0d5 and 856ae5e6c71a1283a414d33e638051f95d3cce35. This broke all sorts of things. See <http://hydra.gnu.org/eval/102058>, for example.
Diffstat (limited to 'guix/build/gnu-build-system.scm')
-rw-r--r--guix/build/gnu-build-system.scm13
1 files changed, 2 insertions, 11 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index a985b1c715..1311cdcc9a 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -297,13 +297,7 @@ makefiles."
(objcopy-command (if target
(string-append target "-objcopy")
"objcopy"))
- (strip-flags '("--strip-all"))
-
- ;; Using '--strip-all' on .a file would remove the archive
- ;; index, leading to "Archive has no index" errors when
- ;; linking against them.
- (archive-strip-flags '("--strip-debug"))
-
+ (strip-flags '("--strip-debug"))
(strip-directories '("lib" "lib64" "libexec"
"bin" "sbin"))
#:allow-other-keys)
@@ -359,10 +353,7 @@ makefiles."
(or (not debug-output)
(make-debug-file path))
(zero? (apply system* strip-command
- (append (if (ar-file? path)
- archive-strip-flags
- strip-flags)
- (list path))))
+ (append strip-flags (list path))))
(or (not debug-output)
(add-debug-link path))))
(const #t) ; down