me/guix
Archived
1
0
Fork 0
Code Activity

gnu: commencement: binutils-mesboot0: Use Gash instead of coretutils&co.

Browse source 
* gnu/packages/commencement.scm (binutils-mesboot0): Use Gash instead of
coretutils&co; downgrade to 2.14.0.
This commit is contained in:
Jan Nieuwenhuizen 2019-10-06 15:22:01 +02:00
parent b755ffef0a
commit cb167958ea
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 46 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

77
gnu/packages/commencement.scm
View file

@ -1188,50 +1188,65 @@ $MES -e '(mescc)' module/mescc.scm -- \"$@\"
,@(alist-delete "tcc" (%boot-tcc0-inputs)))) ,@(alist-delete "tcc" (%boot-tcc0-inputs))))
(define binutils-mesboot0 (define binutils-mesboot0
;; The initial Binutils
(package (package
(inherit binutils) (inherit binutils)
(name "binutils-mesboot0") (name "binutils-mesboot0")
(version "2.20.1a") (version "2.14")
(source (bootstrap-origin (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "mirror://gnu/binutils/binutils-"
(uri (string-append "mirror://gnu/binutils/binutils-" version ".tar.gz"))
version ".tar.bz2")) (sha256
(patches (search-patches "binutils-boot-2.20.1a.patch")) (base32
(sha256 "1w8xp7k44bkijr974x9918i4p1sw4g2fcd5mxvspkjpg38m214ds"))))
(base32
"0r7dr0brfpchh5ic0z9r4yxqn4ybzmlh25sbp30cacqk8nb7rlvi")))))
(inputs '()) (inputs '())
(propagated-inputs '()) (propagated-inputs '())
(native-inputs `(("tcc" ,tcc-boot) (native-inputs (%boot-tcc-inputs))
("bash" ,%bootstrap-coreutils&co)
("coreutils" ,%bootstrap-coreutils&co)
("diffutils" ,diffutils-mesboot)
("make" ,make-mesboot0)))
(supported-systems '("i686-linux" "x86_64-linux")) (supported-systems '("i686-linux" "x86_64-linux"))
(arguments (arguments
`(#:implicit-inputs? #f `(#:implicit-inputs? #f
#:guile ,%bootstrap-guile #:guile ,%bootstrap-guile
#:tests? #f ; runtest: command not found #:tests? #f ; runtest: command not found
#:parallel-build? #f #:parallel-build? #f
#:strip-binaries? #f ; no strip yet #:strip-binaries? #f ; no strip yet
#:configure-flags #:configure-flags
(let ((cppflags (string-append " -D __GLIBC_MINOR__=6" (let ((out (assoc-ref %outputs "out")))
" -D MES_BOOTSTRAP=1")) `("--disable-nls"
(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-shared"
"--disable-werror" "--disable-werror"
"--build=i686-unknown-linux-gnu" "--build=i386-unknown-linux"
"--host=i686-unknown-linux-gnu" "--host=i386-unknown-linux"
"--with-sysroot=/")))))) "--target=i386-unknown-linux"
"--with-sysroot=/"
,(string-append "--prefix=" out)))
#:phases
(modify-phases %standard-phases
(add-before 'configure 'setenv
(lambda _
(let* ((out (assoc-ref %outputs "out"))
(bash (assoc-ref %build-inputs "bash"))
(shell (string-append bash "/bin/bash")))
(setenv "CONFIG_SHELL" shell)
(setenv "SHELL" shell)
(setenv "AR" "tcc -ar")
(setenv "RANLIB" "true")
(setenv "CC" "tcc -D __GLIBC_MINOR__=6")
#t)))
(add-after 'unpack 'scripted-patch
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "bfd/configure"
(("^sed -e '/SRC-POTFILES.*" all)
"echo -e 'all:\\n\\ttrue\\n\\ninstall:\\n\\ttrue\\n' > po/Makefile\n"))
#t))
(replace 'configure ; needs classic invocation of configure
(lambda* (#:key configure-flags #:allow-other-keys)
(format (current-error-port)
"running ./configure ~a\n" (string-join configure-flags))
(apply system* "./configure" configure-flags)
(substitute* "config.status"
(("[.]//dev/null") "/dev/null"))
(invoke "sh" "./config.status"))))))))
(define gcc-core-mesboot (define gcc-core-mesboot
;; Gcc-2.95.3 is the most recent GCC that is supported by what the Mes C ;; Gcc-2.95.3 is the most recent GCC that is supported by what the Mes C