74/74: squash! REMOVEME gnu: Add gcc-11-fixed, enhancing `relax-gcc-14s-strictness' stage.

[guix-commits]

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

commit 109eb53ec8da2da5ff3c88e096d2768dbb753455
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun Dec 15 15:19:04 2024 +0100

    squash! REMOVEME gnu: Add gcc-11-fixed, enhancing 
`relax-gcc-14s-strictness' stage.
    
    XXX To which gcc to add this, gcc-11, gcc-8, earlier?
    
    * gnu/packages/gcc.scm (gcc-11-fixed): Add stage 
`patch-compatibility.cc-for-gcc-14'.
    
    Change-Id: I120c5d07b49970ce0f89678caf686001cd04b1fb
---
 gnu/packages/gcc.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm
index 51e5184daf..ba459a91ef 100644
--- a/gnu/packages/gcc.scm
+++ b/gnu/packages/gcc.scm
@@ -802,6 +802,15 @@ It also includes runtime support libraries for these 
languages.")
     (substitute-keyword-arguments (package-arguments gcc-8)
       ((#:phases phases)
        #~(modify-phases #$phases
+           (add-after 'unpack 'patch-compatibility.cc-for-gcc-14
+             (lambda _
+                 (substitute* "libstdc++-v3/src/c++98/compatibility.cc"
+                   (("#define _GLIBCXX_APPLY_SYMVER" all)
+                    (string-append "// " all))
+                   (("#include <bits/compatibility.h>" all)
+                    (string-append "// " all))
+                   (("#undef _GLIBCXX_APPLY_SYMVER" all)
+                    (string-append "// " all)))))
            (replace 'relax-gcc-14s-strictness
              (lambda* (#:key inputs #:allow-other-keys)
                (let ((bash (assoc-ref inputs "bash"))