amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: linux-libre-headers: Do not retain reference to the bootstrap tools.

Browse source 
* gnu/packages/linux.scm (linux-libre-headers)[install-phase]: Remove
  ".install" files from the output.
  [arguments]: Add #:allowed-references.
This commit is contained in:
Ludovic Courtès 2015-06-04 14:37:53 +02:00
parent 67dfa1986d
commit b15389e159
2 changed files with 17 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
gnu/packages/linux.scm
View file

@ -106,12 +106,21 @@
(and (zero? (system* "make" (and (zero? (system* "make"
(string-append "INSTALL_HDR_PATH=" out) (string-append "INSTALL_HDR_PATH=" out)
"headers_install")) "headers_install"))
(mkdir (string-append out "/include/config")) (begin
(call-with-output-file (mkdir (string-append out "/include/config"))
(string-append out (call-with-output-file
"/include/config/kernel.release") (string-append out
(lambda (p) "/include/config/kernel.release")
(format p "~a-default~%" ,version)))))))) (lambda (p)
(format p "~a-default~%" ,version)))
;; Remove the '.install' and '..install.cmd' files; the
;; latter contains store paths, which pulls in bootstrap
;; binaries in the build environment, and prevents bit
;; reproducibility for the bootstrap binaries.
(for-each delete-file (find-files out "\\.install"))
#t))))))
(package (package
(name "linux-libre-headers") (name "linux-libre-headers")
(version version) (version version)
@ -133,6 +142,7 @@
(alist-replace (alist-replace
'install ,install-phase 'install ,install-phase
(alist-delete 'configure %standard-phases))) (alist-delete 'configure %standard-phases)))
#:allowed-references ()
#:tests? #f)) #:tests? #f))
(synopsis "GNU Linux-Libre kernel headers") (synopsis "GNU Linux-Libre kernel headers")
(description "Headers of the Linux-Libre kernel.") (description "Headers of the Linux-Libre kernel.")

6
gnu/packages/make-bootstrap.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -374,10 +374,6 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
(copy-recursively (string-append linux "/include/asm-generic") (copy-recursively (string-append linux "/include/asm-generic")
(string-append incdir "/asm-generic")) (string-append incdir "/asm-generic"))
;; Remove the '.install' and '..install.cmd' files; the latter
;; contains store paths, which prevents bit reproducibility.
(for-each delete-file (find-files incdir "\\.install"))
#t)))) #t))))
(inputs `(("libc" ,(let ((target (%current-target-system))) (inputs `(("libc" ,(let ((target (%current-target-system)))
(if target (if target