139/237: gnu: boost-for-mysql: Fix build with gcc-14.

[guix-commits]

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

commit 17d4fa39d75d24fb5c73a05c1cb0caf2e6f3ca1a
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Thu Jan 2 13:15:55 2025 +0100

    gnu: boost-for-mysql: Fix build with gcc-14.
    
    * gnu/packages/boost.scm (boost-for-mysql)[arguments]: Add phase
    "apply-gcc-14-patch".
    
    Change-Id: If75c77d514702c2af127eadba44d195d7443d4f5
---
 gnu/packages/boost.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm
index d090c52d8d..fe9cef754e 100644
--- a/gnu/packages/boost.scm
+++ b/gnu/packages/boost.scm
@@ -14,7 +14,7 @@
 ;;; Copyright © 2019, 2020 Giacomo Leidi <goodoldpaul@autistici.org>
 ;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
 ;;; Copyright © 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
-;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2020, 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2021, 2022 Greg Hogan <code@greghogan.com>
 ;;; Copyright © 2021 Franck Pérignon <franck.perignon@univ-grenoble-alpes.fr>
 ;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org>
@@ -344,6 +344,16 @@ across a broad spectrum of applications.")
              "--with-toolset=gcc")))
        ((#:phases phases)
         #~(modify-phases #$phases
+            (add-after 'unpack 'apply-gcc-14-patch
+              (lambda _
+                (substitute* "tools/build/src/engine/build.sh"
+                  (("=gcc")
+                   "=\"gcc -Wno-error=implicit-function-declaration\""))
+                (substitute* "tools/build/src/engine/build.jam"
+                  ((": -pedantic -fno-strict-aliasing" all)
+                   (string-append
+                    all
+                    " -Wno-error=implicit-function-declaration")))))
             (replace 'patch-shells
               (lambda _
                 (substitute* (append