5 files changed, 3 insertions(+), 26 deletions(-)

M gnu/packages/base.scm
M gnu/packages/commencement.scm
M gnu/packages/linux.scm
M guix/build-system/gnu.scm
M guix/build/gnu-build-system.scm

@@ 421,9 421,6 @@ included.")
             ;; XXX: Work around "undefined reference to `__stack_chk_guard'".
             "libc_cv_ssp=no")
 
-      ;; Using '--strip-all' on crt*.o breaks them.
-      #:strip-flags '("--strip-debug")
-
       #:tests? #f                                 ; XXX
       #:phases (alist-cons-before
                 'configure 'pre-configure

@@ 170,10 170,6 @@ identifier SYSTEM."
                    (ice-9 regex)
                    (srfi srfi-1)
                    (srfi srfi-26))
-
-        ;; Using '--strip-all' leads to a link failure while building libc.
-        #:strip-flags '("--strip-debug")
-
         ,@(substitute-keyword-arguments (package-arguments gcc-4.8)
             ((#:configure-flags flags)
              `(append (list ,(string-append "--target=" (boot-triplet))

@@ 292,11 292,6 @@ for SYSTEM, or #f if there is no configuration for SYSTEM."
                  (alist-replace
                   'install ,install-phase
                   (alist-delete 'configure %standard-phases)))
-
-       ;; Use '--strip-debug', not '--strip-all', because the latter leads to
-       ;; unloadable modules (due to the lack of a symbol table.)
-       #:strip-flags '("--strip-debug")
-
        #:tests? #f))
     (synopsis "100% free redistribution of a cleaned Linux kernel")
     (description

@@ 274,8 274,7 @@ standard packages used as implicit inputs of the GNU build system."
                     (parallel-tests? #t)
                     (patch-shebangs? #t)
                     (strip-binaries? #t)
-                    (strip-flags ''("--strip-all"))
-                    (archive-strip-flags ''("--strip-debug"))
+                    (strip-flags ''("--strip-debug"))
                     (strip-directories ''("lib" "lib64" "libexec"
                                           "bin" "sbin"))
                     (phases '%standard-phases)


@@ 339,7 338,6 @@ are allowed to refer to."
                   #:patch-shebangs? ,patch-shebangs?
                   #:strip-binaries? ,strip-binaries?
                   #:strip-flags ,strip-flags
-                  #:archive-strip-flags ,archive-strip-flags
                   #:strip-directories ,strip-directories)))
 
   (define guile-for-build

@@ 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