22/290: gnu: expect: Fix build with gcc-14.

[guix-commits]

andreas pushed a commit to branch core-packages-team
in repository guix.

commit 44c4c6f5b6bb27d5fc78c7ab46c440eb066e940d
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Fri Dec 6 22:53:49 2024 +0100

    gnu: expect: Fix build with gcc-14.
    
    * gnu/packages/tcl.scm (expect)[arguments]: Add CFLAGS to #:configure-flags 
to
    relax gcc-14's strictness.
    
    Change-Id: Ic371619c87cac9a047fdee6eded21611bc23bd1b
---
 gnu/packages/tcl.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index a888304e0f..0d9c7909b6 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -3,7 +3,7 @@
 ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
-;;; Copyright © 2016, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016, 2023, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net>
 ;;; Copyright © 2018, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
@@ -171,7 +171,11 @@ multiple inheritance and public and private classes and 
variables.")
      '(#:configure-flags
        (let ((out (assoc-ref %outputs "out"))
              (tcl (assoc-ref %build-inputs "tcl")))
-         (list (string-append "--with-tcl=" tcl "/lib")
+         (list (string-append "CFLAGS=-g -O2"
+                              " -Wno-error=implicit-function-declaration"
+                              " -Wno-error=implicit-int"
+                              " -Wno-error=incompatible-pointer-types")
+               (string-append "--with-tcl=" tcl "/lib")
                (string-append "--with-tclinclude=" tcl "/include")
                (string-append "--exec-prefix=" out)
                (string-append "--mandir=" out "/share/man")))