futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: bootstrap: mescc-tools-static: Remove packages and tarball.

Browse Source 
* gnu/packages/make-bootstrap.scm (%mescc-tools-static,
%mescc-tools-static-stripped, %mescc-tools-bootstrap-tarball): Remove.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2022-09-12 10:49:55 +02:00 committed by Janneke Nieuwenhuizen
parent ccb55481d4
commit 0501136d57
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
gnu/packages/make-bootstrap.scm
View File

@ -53,7 +53,6 @@
%glibc-bootstrap-tarball %glibc-bootstrap-tarball
%gcc-bootstrap-tarball %gcc-bootstrap-tarball
%guile-bootstrap-tarball %guile-bootstrap-tarball
%mescc-tools-bootstrap-tarball
%mes-bootstrap-tarball %mes-bootstrap-tarball
%bootstrap-tarballs %bootstrap-tarballs
@ -594,43 +593,6 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
"--version")) "--version"))
'("gcc" "g++" "cpp")))))))))) '("gcc" "g++" "cpp"))))))))))
;; Two packages: first build static, bare minimum content.
(define %mescc-tools-static
;; A statically linked MesCC Tools.
(package
(inherit mescc-tools)
(name "mescc-tools-static")
(arguments
`(#:system "i686-linux"
,@(substitute-keyword-arguments (package-arguments mescc-tools)
((#:make-flags flags)
`(cons "CC=gcc -static" ,flags)))))))
;; ... next remove store references.
(define %mescc-tools-static-stripped
;; A statically linked Mescc Tools with store references removed, for
;; bootstrap.
(package
(inherit %mescc-tools-static)
(name (string-append (package-name %mescc-tools-static) "-stripped"))
(build-system trivial-build-system)
(arguments
(list #:modules '((guix build utils))
#:builder
#~(begin
(use-modules (guix build utils))
(let* ((in #$%mescc-tools-static)
(out #$output)
(bin (string-append out "/bin")))
(mkdir-p bin)
(for-each (lambda (file)
(let ((target (string-append bin "/" file)))
(format #t "copying `~a'...~%" file)
(copy-file (string-append in "/bin/" file)
target)
(remove-store-references target)))
'( "M1" "blood-elf" "hex2"))))))))
;; Two packages: first build static, bare minimum content. ;; Two packages: first build static, bare minimum content.
(define-public %mes-minimal (define-public %mes-minimal
;; A minimal Mes without documentation. ;; A minimal Mes without documentation.
@ -871,10 +833,6 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
;; A tarball with the statically-linked, relocatable Guile. ;; A tarball with the statically-linked, relocatable Guile.
(tarball-package %guile-static-stripped)) (tarball-package %guile-static-stripped))
(define %mescc-tools-bootstrap-tarball
;; A tarball with statically-linked MesCC binary seed.
(tarball-package %mescc-tools-static-stripped))
(define %mes-bootstrap-tarball (define %mes-bootstrap-tarball
;; A tarball with Mes binary seed. ;; A tarball with Mes binary seed.
(tarball-package %mes-minimal-stripped)) (tarball-package %mes-minimal-stripped))