gnu: GDB: Inline cross-compilation fix.

* gnu/packages/gdb.scm (gdb-9.1)[arguments]: Remove conditionals on
%CURRENT-TARGET-SYSTEM.
This commit is contained in:
Marius Bakke 2020-06-27 10:32:48 +02:00
parent 425fd7eb6a
commit ef2a3871fd
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA

View file

@ -70,20 +70,14 @@ (define-public gdb-9.1
#t)) #t))
(add-after (add-after
'install 'remove-libs-already-in-binutils 'install 'remove-libs-already-in-binutils
(lambda* (#:key inputs outputs (lambda* (#:key native-inputs inputs outputs
;; TODO: Inline the native-inputs addition and
;; below usage in the next rebuild cycle.
,@(if (%current-target-system)
'(native-inputs)
'())
#:allow-other-keys) #:allow-other-keys)
;; Like Binutils, GDB installs libbfd, libopcodes, etc. ;; Like Binutils, GDB installs libbfd, libopcodes, etc.
;; However, this leads to collisions when both are ;; However, this leads to collisions when both are
;; installed, and really is none of its business, ;; installed, and really is none of its business,
;; conceptually. So remove them. ;; conceptually. So remove them.
(let* ((binutils ,@(if (%current-target-system) (let* ((binutils (or (assoc-ref inputs "binutils")
'((assoc-ref native-inputs "binutils")) (assoc-ref native-inputs "binutils")))
'((assoc-ref inputs "binutils"))))
(out (assoc-ref outputs "out")) (out (assoc-ref outputs "out"))
(files1 (with-directory-excursion binutils (files1 (with-directory-excursion binutils
(append (find-files "lib") (append (find-files "lib")