mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 23:06:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/gnu: Always pass "-D" to strip/objcopy.

Browse source 
* guix/build-system/gnu.scm (gnu-build, gnu-cross-build): Add "-D" to
  #:strip-flags.
* guix/build/gnu-build-system.scm (strip): Likewise.  Also pass "-D" to
  OBJCOPY-COMMAND.
This commit is contained in:
Ludovic Courtès 2015-12-18 23:58:51 +01:00
parent f1e0c85ad2
commit 3eb34c631a
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -282,7 +282,7 @@ (define* (gnu-build store name input-drvs
(parallel-tests? #t)
(patch-shebangs? #t)
(strip-binaries? #t)
(strip-flags ''("--strip-debug"))
(strip-flags ''("--strip-debug" "-D"))
(strip-directories ''("lib" "lib64" "libexec"
"bin" "sbin"))
(validate-runpath? #t)
@ -417,7 +417,7 @@ (define* (gnu-cross-build store name
(parallel-build? #t) (parallel-tests? #t)
(patch-shebangs? #t)
(strip-binaries? #t)
(strip-flags ''("--strip-debug"))
(strip-flags ''("--strip-debug" "-D"))
(strip-directories ''("lib" "lib64" "libexec"
"bin" "sbin"))
(validate-runpath? #t)

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

@ -329,7 +329,7 @@ (define* (strip #:key target outputs (strip-binaries? #t)
(objcopy-command (if target
(string-append target "-objcopy")
"objcopy"))
(strip-flags '("--strip-debug"))
(strip-flags '("--strip-debug" "-D"))
(strip-directories '("lib" "lib64" "libexec"
"bin" "sbin"))
#:allow-other-keys)
@ -367,7 +367,7 @@ (define (add-debug-link file)
;; `bfd_fill_in_gnu_debuglink_section' function.) No reference to
;; DEBUG-OUTPUT is kept because bfd keeps only the basename of the debug
;; file.
(zero? (system* objcopy-command
(zero? (system* objcopy-command "-D"
(string-append "--add-gnu-debuglink="
(debug-file file))
file)))