From b98c31f5e7c6f09af8a4793352116a0230d31e9c Mon Sep 17 00:00:00 2001
From: Janneke Nieuwenhuizen <janneke@gnu.org>
Date: Thu, 2 Jan 2025 13:15:55 +0100
Subject: [PATCH] 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 f50d49188d9..d0899635182 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