52/70: bootstrap: gcc-mesboot: Use Gash instead of coreutils&co.

[guix-commits]

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

commit 7d0e1d45a7590baea0f7a9cae9ac528d9d09ed64
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Fri Nov 22 22:31:06 2019 +0100

    bootstrap: gcc-mesboot: Use Gash instead of coreutils&co.
    
    * gnu/packages/commencement.scm (gcc-mesboot): Use Gash instead of
    coreutils&co.
---
 gnu/packages/commencement.scm | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index ab8fe55..849f1be 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -2615,16 +2615,10 @@ exec " gcc "/bin/" program
     (name "gcc-mesboot")
     (version "4.9.4")
     (source (bootstrap-origin (package-source gcc-4.9)))
-    (native-inputs `(("binutils" ,binutils-mesboot)
-                     ("gcc-wrapper" ,gcc-mesboot1-wrapper)
+    (native-inputs `(("gcc-wrapper" ,gcc-mesboot1-wrapper)
                      ("gcc" ,gcc-mesboot1)
-                     ("libc" ,glibc-mesboot)
-
-                     ("bash" ,%bootstrap-coreutils&co)
-                     ("coreutils" ,%bootstrap-coreutils&co)
-                     ("diffutils" ,diffutils-mesboot)
-                     ("kernel-headers" ,%bootstrap-linux-libre-headers)
-                     ("make" ,make-mesboot)))
+                     ("headers" ,glibc-headers-mesboot)
+                     ,@(%boot-mesboot4-inputs)))
     (arguments
      `(#:validate-runpath? #f
        ,@(substitute-keyword-arguments (package-arguments gcc-mesboot1)
@@ -2669,6 +2663,9 @@ exec " gcc "/bin/" program
                      "--disable-build-with-cxx")))
            ((#:phases phases)
             `(modify-phases ,phases
+               (delete 'apply-boot-patch)
+               (delete 'unpack-g++)     ; sadly, gcc-4.9.4 does not provide
+                                        ; modular core/language downloads
                (replace 'setenv
                  (lambda* (#:key outputs #:allow-other-keys)
                    (let* ((out (assoc-ref outputs "out"))
@@ -2679,12 +2676,12 @@ exec " gcc "/bin/" program
                           (kernel-headers (assoc-ref %build-inputs 
"kernel-headers")))
                      (setenv "CONFIG_SHELL" (string-append bash "/bin/sh"))
                      (setenv "C_INCLUDE_PATH" (string-append
-                                               gcc 
"/lib/gcc-lib/i686-unknown-linux-gnu/4.7.4/include"
+                                               gcc 
"/lib/gcc-lib/i686-unknown-linux-gnu/4.6.4/include"
                                                ":" kernel-headers "/include"
                                                ":" glibc "/include"
                                                ":" (getcwd) "/mpfr/src"))
                      (setenv "CPLUS_INCLUDE_PATH" (string-append
-                                                   gcc 
"/lib/gcc-lib/i686-unknown-linux-gnu/4.7.4/include"
+                                                   gcc 
"/lib/gcc-lib/i686-unknown-linux-gnu/4.6.4/include"
                                                    ":" kernel-headers 
"/include"
                                                    ":" glibc "/include"
                                                    ":" (getcwd) "/mpfr/src"))