80/92: gnu: gcc-muslboot: Apply patches in the package source.

[guix-commits]

guix_mirror_bot pushed a commit to branch wip-riscv-bootstrap
in repository guix.

commit e765d1e3866503b9d48f25d73796db1c87b851e4
Author: Efraim Flashner <efr...@flashner.co.il>
AuthorDate: Tue Dec 17 09:28:08 2024 +0200

    gnu: gcc-muslboot: Apply patches in the package source.
    
    * gnu/packages/commencement.scm (gcc-muslboot)[source]: Add patches.
    [arguments]: Remove custom phases applying patches.
    
    Change-Id: I01b9af67189c0213fd60d2822dca7975ddf4a2a8
---
 gnu/packages/commencement.scm | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 170d3ce67e..16b21358f5 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -2032,13 +2032,17 @@ ac_cv_c_float_format='IEEE (little-endian)'
     (inherit gcc-muslboot0)
     (name "gcc-muslboot")
     (version "4.6.4")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "mirror://gnu/gcc/gcc-"
-                                  version "/gcc-" version ".tar.gz"))
-              (sha256
-               (base32
-                "0vvkzxi8wvaj9wzdk0hv12nj9kqymkpjqzasj2ri8nc107dk7pjk"))))
+    (source
+      (bootstrap-origin
+       (origin
+         (method url-fetch)
+         (uri (string-append "mirror://gnu/gcc/gcc-"
+                             version "/gcc-" version ".tar.gz"))
+         (sha256
+          (base32
+           "0vvkzxi8wvaj9wzdk0hv12nj9kqymkpjqzasj2ri8nc107dk7pjk"))
+         (patches (search-patches "gcc-boot-4.6.4-riscv64-support.patch"
+                                  
"gcc-boot-4.6.4-riscv64-libstdc++-support.patch")))))
     (native-inputs
      (modify-inputs (%boot-tcc-musl-inputs)
                     (replace "gcc" gcc-muslboot0)
@@ -2069,13 +2073,7 @@ ac_cv_c_float_format='IEEE (little-endian)'
       else
        _cpp_define_builtin (pfile, \"__cplusplus 199711L\");
     }")))))
-            (add-after 'apply-riscv64-patch 'apply-second-riscv64-patch
-              (lambda* (#:key inputs #:allow-other-keys)
-                (let ((patch-file
-                        #$(local-file
-                            (search-patch
-                              
"gcc-boot-4.6.4-riscv64-libstdc++-support.patch"))))
-                  (invoke "patch" "--force" "-p1" "-i" patch-file))))
+            (delete 'apply-riscv64-patch)
             (replace 'setenv
               (lambda _
                 (setenv "CC" "musl-gcc")