49/63: bootstrap: gcc-mesboot: Scheme-only bootstrap.

[guix-commits]

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

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

    bootstrap: gcc-mesboot: Scheme-only bootstrap.
    
    * gnu/packages/commencement.scm (gcc-mesboot): Scheme-only bootstrap.
---
 gnu/packages/commencement.scm | 27 +++++++++++++++++++--------
 1 file changed, 19 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index a9c0381..3eb8823 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -2495,16 +2495,24 @@ exec " gcc "/bin/" program
     (name "gcc-mesboot")
     (version "4.9.4")
     (source (bootstrap-origin (package-source gcc-4.9)))
-    (native-inputs `(("binutils" ,binutils-mesboot)
+    (native-inputs `(("bash" ,bash-mesboot)
+                     ("binutils" ,binutils-mesboot)
+                     ("bzip2" ,bzip2-mesboot0)
+                     ("coreutils" ,coreutils-mesboot0)
+                     ("diffutils" ,diffutils-mesboot)
+                     ("gawk" ,gawk-mesboot)
                      ("gcc-wrapper" ,gcc-mesboot1-wrapper)
                      ("gcc" ,gcc-mesboot1)
+                     ("grep" ,grep-mesboot)
+                     ("gzip" ,gzip-mesboot0)
                      ("libc" ,glibc-mesboot)
+                     ("make" ,make-mesboot)
+                     ("patch" ,patch-mesboot0)
+                     ("sed" ,sed-mesboot)
+                     ("tar" ,tar-mesboot)
+                     ("xz" ,xz-mesboot)
 
-                     ("bash" ,%bootstrap-coreutils&co)
-                     ("coreutils" ,%bootstrap-coreutils&co)
-                     ("diffutils" ,diffutils-mesboot)
-                     ("kernel-headers" ,%bootstrap-linux-libre-headers)
-                     ("make" ,make-mesboot)))
+                     ("kernel-headers" ,%bootstrap-linux-libre-headers)))
     (arguments
      `(#:validate-runpath? #f
        ,@(substitute-keyword-arguments (package-arguments gcc-mesboot1)
@@ -2549,6 +2557,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"))
@@ -2559,12 +2570,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"))