60/60: gnu: binutils-mesboot: Update to 2.30.

[guix-commits]

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

commit 2194070501749006bc62c2c81211a1a2131be6f3
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Nov 5 11:18:22 2024 +0200

    gnu: binutils-mesboot: Update to 2.30.
    
    * gnu/packages/commencement.scm (binutils-mesboot): Update to 2.30.
    [arguments]: Don't inherit from binutils-mesboot1.  Update
    configure-flags.
    [native-inputs]: When building for not i686 or x86_64 use
    %boot-muslboot2-inputs.
    [supported-systems]: Support all supported systems.
    
    Change-Id: I52740e2c87fbb31da05a0f3fd5016edf4e94bd41
---
 gnu/packages/commencement.scm | 45 ++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 44 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 59819e2df0..76adfc55ae 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -2074,7 +2074,50 @@ ac_cv_c_float_format='IEEE (little-endian)'
   (package
     (inherit binutils-mesboot1)
     (name "binutils-mesboot")
-    (native-inputs (%boot-mesboot2-inputs))))
+    (version "2.30")
+    (source (bootstrap-origin
+             (origin
+               (method url-fetch)
+               (uri (string-append "mirror://gnu/binutils/binutils-"
+                                   version ".tar.gz"))
+               (sha256
+                (base32
+                 "1sp9g7zrrcsl25hxiqzmmcrdlbm7rbmj0vki18lks28wblcm0f4c")))))
+    (arguments
+     (list #:implicit-inputs? #f
+           #:guile %bootstrap-guile
+           #:tests? #f                  ; runtest: command not found
+           #:parallel-build? #f
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'configure 'fix-build
+                 (lambda _
+                   ;; bfd/po doesn't have a Makefile, so the recursive calls 
just
+                   ;; fail. We add files with the same name Make targets have, 
to
+                   ;; trick Make into thinking there's nothing to do.
+                   (call-with-output-file "bfd/po/install"
+                     (lambda (p) (display "" p)))
+                   (call-with-output-file "bfd/po/all"
+                     (lambda (p) (display "" p)))
+                   (call-with-output-file "bfd/po/info"
+                     (lambda (p) (display "" p))))))
+           #:configure-flags
+           #~(list
+               (string-append "CONFIG_SHELL="
+                              (search-input-file %build-inputs "/bin/bash"))
+               (string-append "SHELL="
+                              (search-input-file %build-inputs "/bin/bash"))
+               "--enable-64-bit-bfd"
+               "--disable-nls"
+               "--disable-shared"
+               "--disable-plugins"
+               "--enable-deterministic-archives"
+               (string-append "--build=" #$(commencement-build-target))
+               (string-append "--host=" #$(commencement-build-target)))))
+    (native-inputs (if (target-x86?)
+                       (%boot-mesboot2-inputs)
+                       (%boot-muslboot2-inputs)))
+    (supported-systems %supported-systems)))
 
 ;; We need to introduce byacc in order to process some pre-generated
 ;; files in gawk and possibly elsewhere.