janneke pushed a commit to branch wip-bootstrap
in repository guix.
commit 5be9d4c557aefd0617c7993c1d1c999b5c423a93
Author: Jan Nieuwenhuizen <[email protected]>
Date: Mon Sep 3 12:00:03 2018 +0200
gnu: binutils-mesboot0: Cleanup.
* gnu/packages/commencement.scm (binutils-mesboot0): Cleanup.
---
gnu/packages/commencement.scm | 64 ++++++++++++-------------------------------
1 file changed, 18 insertions(+), 46 deletions(-)
diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index b70f68b..be89ed3 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -672,6 +672,7 @@
(propagated-inputs '())
(native-inputs `(("tcc" ,tcc-boot)
+ ("bash" ,%bootstrap-coreutils&co)
("coreutils" ,%bootstrap-coreutils&co)
("diffutils" ,diffutils-mesboot)
("make" ,make-mesboot0)))
@@ -681,52 +682,23 @@
#:guile ,%bootstrap-guile
#:tests? #f ; runtest: command not found
#:parallel-build? #f
- #:strip-binaries? #f
- #:make-flags '("AR=tcc -ar" "RANLIB=true")
- #:phases
- (modify-phases %standard-phases
- (replace 'configure
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out"))
- (cppflags (string-append
- " -D __STDC__=1 "
- " -D __GLIBC_MINOR__=6"
- " -D MES_BOOTSTRAP=1")))
- ;; who sets these?
- (unsetenv "C_INCLUDE_PATH")
- (unsetenv "CPLUS_INCLUDE_PATH")
- (unsetenv "CPATH")
- (unsetenv "LIBRARY_PATH")
- (setenv "PATH"
- (string-append
- (assoc-ref %build-inputs "coreutils") "/bin"
- ":" (assoc-ref %build-inputs "make") "/bin"
- ":" (assoc-ref %build-inputs "tcc") "/bin"))
-
- (format (current-error-port) "PATH=~a\n" (getenv "PATH"))
- (setenv "CONFIG_SHELL" (string-append
- (assoc-ref %build-inputs "coreutils")
- "/bin/sh"))
- (format (current-error-port) "CONFIG_SHELL=~a\n" (getenv
"CONFIG_SHELL"))
- (setenv "CPPFLAGS" cppflags)
- (setenv "AR" "tcc -ar")
- (setenv "CXX" "false")
- (setenv "RANLIB" "true")
- (setenv "CC" (string-append "tcc -static" " " cppflags))
- (setenv "LD" (string-append "tcc -static" " " cppflags))
- (setenv "CC_FOR_BUILD" (string-append "tcc -static" " "
cppflags))
- (setenv "CPP" (string-append "tcc -E" " " cppflags))
- (setenv "CC_FOR_BUILD" (string-append "tcc -static" " "
cppflags))
- (setenv "OBJC" (string-append "tcc -static" " " cppflags))
- (and (zero?
- (system* "./configure"
- "--disable-nls"
- "--disable-shared"
- "--disable-werror"
- "--build=i686-unknown-linux-gnu"
- "--host=i686-unknown-linux-gnu"
- "--with-sysroot=/"
- (string-append "--prefix=" out)))))))))))))
+ #:strip-binaries? #f ; no strip yet
+ #:configure-flags
+ (let ((cppflags (string-append " -D __GLIBC_MINOR__=6"
+ " -D MES_BOOTSTRAP=1"))
+ (bash (assoc-ref %build-inputs "bash")))
+ `(,(string-append "CONFIG_SHELL=" bash "/bin/sh")
+ ,(string-append "CPPFLAGS=" cppflags)
+ "AR=tcc -ar"
+ "CXX=false"
+ "RANLIB=true"
+ ,(string-append "CC=tcc" cppflags)
+ "--disable-nls"
+ "--disable-shared"
+ "--disable-werror"
+ "--build=i686-unknown-linux-gnu"
+ "--host=i686-unknown-linux-gnu"
+ "--with-sysroot=/")))))))
(define-public gcc-core-mesboot
(package-with-bootstrap-guile
