02/09: gnu: guile-3.0: Fix building on powerpc-linux.

[guix-commits]

efraim pushed a commit to branch wip-ppc
in repository guix.

commit 729387b2ba90e970b1fc62af414ba779ed6e06e2
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Mar 8 22:13:56 2021 +0200

    gnu: guile-3.0: Fix building on powerpc-linux.
    
    * gnu/packages/guile.scm (guile-3.0)[arguments]: On powerpc add a
    phase to adjust the compile flags during the bootstrap process.
---
 gnu/packages/guile.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 955bf2e..6b56722 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -305,7 +305,18 @@ without requiring the source code to be rewritten.")
          (substitute-keyword-arguments (package-arguments guile-2.2)
            ((#:configure-flags flags ''())
             `(cons "--disable-jit" ,flags)))
-         (package-arguments guile-2.2)))
+         (if (string-prefix? "powerpc-" (%current-system))
+           (substitute-keyword-arguments (package-arguments guile-2.2)
+             ((#:phases phases)
+              `(modify-phases ,phases
+                 (add-after 'unpack 'adjust-bootstrap-flags
+                   (lambda _
+                     ;; Upstream knows about suggested solution.
+                     ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214
+                     (substitute* "bootstrap/Makefile.in"
+                       (("^GUILE_OPTIMIZATIONS.*")
+                        "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives 
-Ocps\n")))))))
+           (package-arguments guile-2.2))))
     (native-search-paths
      (list (search-path-specification
             (variable "GUILE_LOAD_PATH")