ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gdb: Remove headers and libraries already in Binutils.

Browse source 
* gnu/packages/gdb.scm (gdb)[arguments]: Add #:modules.  Rename
  'post-install' phase to 'remove-libs-already-in-binutils'.  Change it
  to compute the intersection of the set of headers and libraries of GDB
  vs. Binutils and to remove each of the files found in both.
This commit is contained in:
Ludovic Courtès 2015-09-09 23:25:22 +02:00
parent f19b9b96cd
commit 2fecbdbd82
1 changed files with 21 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/gdb.scm
View file

@ -46,7 +46,11 @@ (define-public gdb
"1a08c9svaihqmz2mm44il1gwa810gmwkckns8b0y0v3qz52amgby"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; FIXME "make check" fails on single-processor systems.
`(#:tests? #f ; FIXME "make check" fails on single-processor systems.
#:modules ((srfi srfi-1)
,@%gnu-build-system-modules)
#:phases (modify-phases %standard-phases
(add-after
'configure 'post-configure
@ -54,15 +58,25 @@ (define-public gdb
(for-each patch-makefile-SHELL
(find-files "." "Makefile\\.in"))))
(add-after
'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
;; Like Binutils, GDB installs libbfd and libopcodes.
'install 'remove-libs-already-in-binutils
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Like Binutils, GDB installs libbfd, libopcodes, etc.
;; However, this leads to collisions when both are
;; installed, and really is none of its business,
;; conceptually. So remove them.
(for-each delete-file
(find-files (assoc-ref outputs "out")
"^lib(opcodes|bfd)\\.")))))))
(let* ((binutils (assoc-ref inputs "binutils"))
(out (assoc-ref outputs "out"))
(files1 (with-directory-excursion binutils
(append (find-files "lib")
(find-files "include"))))
(files2 (with-directory-excursion out
(append (find-files "lib")
(find-files "include"))))
(common (lset-intersection string=?
files1 files2)))
(with-directory-excursion out
(for-each delete-file common)
#t)))))))
(inputs
`(("expat" ,expat)
("mpfr" ,mpfr)