ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 23:02:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gdb: Patch references to /bin/sh and add debug output.

Browse source 
* gnu/packages/gdb.scm (gdb-10)[outputs]: Add a debug output.
[phases]{patch-paths}: New phase.
[inputs]: Add bash.
(gdb-9.2)[phases]{patch-paths}: Override phase.
This commit is contained in:
Maxim Cournoyer 2021-09-14 16:09:47 -04:00
parent 472da854f1
commit 41f058d10d
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 28 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/gdb.scm
View file

@ -24,6 +24,7 @@
(define-module (gnu packages gdb)
#:use-module (gnu packages)
#:use-module (gnu packages bash)
#:use-module (gnu packages hurd)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages readline)
@ -35,9 +36,10 @@ (define-module (gnu packages gdb)
#:use-module (gnu packages pretty-print)
#:use-module (gnu packages python)
#:use-module (gnu packages pkg-config)
#:use-module (guix download)
#:use-module ((guix licenses) #:select (gpl3+))
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module ((guix build utils) #:select (alist-replace))
#:use-module (srfi srfi-1))
@ -57,6 +59,7 @@ (define-public gdb-10
(search-patches "gdb-hurd.patch"))))
(build-system gnu-build-system)
(outputs '("out" "debug"))
(arguments
`(#:tests? #f ; FIXME "make check" fails on single-processor systems.
@ -66,6 +69,14 @@ (define-public gdb-10
,@%gnu-build-system-modules)
#:phases (modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((sh (string-append (assoc-ref inputs "bash")
"/bin/sh")))
(substitute* '("gdb/ser-pipe.c"
"gdbsupport/pathstuff.cc")
(("\"/bin/sh\"")
(format #f "~s" sh))))))
(add-after
'configure 'post-configure
(lambda _
@ -95,7 +106,8 @@ (define-public gdb-10
(for-each delete-file common)
#t)))))))
(inputs
`(("expat" ,expat)
`(("bash" ,bash)
("expat" ,expat)
("mpfr" ,mpfr)
("gmp" ,gmp)
("readline" ,readline)
@ -151,6 +163,20 @@ (define-public gdb-9.2
(sha256
(base32
"0mf5fn8v937qwnal4ykn3ji1y2sxk0fa1yfqi679hxmpg6pdf31n"))))
(arguments
(substitute-keyword-arguments (package-arguments gdb-11)
((#:phases phases)
;; Override the patch-paths phase as the pathstuff.c file was later
;; renamed.
`(modify-phases ,phases
(replace 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((sh (string-append (assoc-ref inputs "bash")
"/bin/sh")))
(substitute* '("gdb/gdbsupport/pathstuff.c"
"gdb/ser-pipe.c")
(("\"/bin/sh\"")
(format #f "~s" sh))))))))))
(inputs
(alist-replace "guile" (list guile-2.0)
(package-inputs gdb-10)))))