gnu: gdb: Use G-expressions.

* gnu/packages/gdb.scm (gdb/pinned): Use G-expressions.
(gdb-minimal gdb-multiarch, avr-gdb): ): Update acordingly.

Change-Id: Ifcdc6a337ec9c4d5c4303082d207b657cbc34765
This commit is contained in:
Janneke Nieuwenhuizen 2024-11-14 10:42:05 +01:00
parent eb959d5a63
commit 773aa7a60b
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -4,7 +4,7 @@
;;; Copyright © 2015, 2016, 2019, 2021, 2023 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2016, 2019, 2021, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020, 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2021, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -38,6 +38,7 @@
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module ((guix licenses) #:select (gpl3+)) #:use-module ((guix licenses) #:select (gpl3+))
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
@ -61,11 +62,12 @@
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments (arguments
`(#:tests? #f ;FIXME: 217 unexpected failures (list
#:tests? #f ;FIXME: 217 unexpected failures
#:out-of-source? #t #:out-of-source? #t
#:modules ((srfi srfi-1) #:modules `((srfi srfi-1)
,@%default-gnu-modules) ,@%default-gnu-modules)
#:phases (modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths (add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((sh (string-append (assoc-ref inputs "bash") (let ((sh (string-append (assoc-ref inputs "bash")
@ -166,13 +168,14 @@ written in C, C++, Ada, Objective-C, Pascal and more.")
(package/inherit gdb-14 (package/inherit gdb-14
(name "gdb-multiarch") (name "gdb-multiarch")
(arguments (arguments
`(#:configure-flags (append
(list "--enable-targets=all" (list #:configure-flags
#~(list "--enable-targets=all"
"--enable-multilib" "--enable-multilib"
"--enable-interwork" "--enable-interwork"
"--enable-languages=c,c++" "--enable-languages=c,c++"
"--disable-nls") "--disable-nls"))
,@(package-arguments gdb-14))) (package-arguments gdb-14)))
(synopsis "The GNU debugger (with all architectures enabled)"))) (synopsis "The GNU debugger (with all architectures enabled)")))
(define-public gdb-minimal (define-public gdb-minimal
@ -185,13 +188,14 @@ written in C, C++, Ada, Objective-C, Pascal and more.")
(package/inherit gdb-14 (package/inherit gdb-14
(name "avr-gdb") (name "avr-gdb")
(arguments (arguments
`(#:configure-flags (append
(list "--target=avr" (list #:configure-flags
#~(list "--target=avr"
"--disable-nls" "--disable-nls"
"--enable-languages=c,c++" "--enable-languages=c,c++"
"--with-system-readline" "--with-system-readline"
"--enable-source-highlight") "--enable-source-highlight"))
,@(package-arguments gdb-14))) (package-arguments gdb-14)))
(synopsis "The GNU Debugger for AVR") (synopsis "The GNU Debugger for AVR")
(description (description
"GDB is the GNU debugger. With it, you can monitor what a program is "GDB is the GNU debugger. With it, you can monitor what a program is