ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 21:59:08 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: make-bootstrap: Adjust ‘%glibc-stripped’ for glibc@2.39 on the Hurd.

Browse source 
Previously the second ‘copy-recursively’ call would fail with EEXIST
since glibc@2.39 already provides $includedir/include/mach.

* guix/build/make-bootstrap.scm (make-stripped-libc)[copy-mach-headers]:
Pass #:select? to ‘copy-recursively’ to exclude files already present
under INCDIR.

Change-Id: I7e5a93e46eefa18299c231468c720072468fdb10
This commit is contained in:
Ludovic Courtès 2024-08-14 18:08:59 +02:00
parent e8a1b10c27
commit 8b6f33a4d9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 20 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
guix/build/make-bootstrap.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2015, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2019, 2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
@ -84,13 +84,27 @@ (define (make-stripped-libc output libc kernel-headers)
when producing a bootstrap libc."
(define (copy-mach-headers output kernel-headers)
(let* ((incdir (string-append output "/include")))
(let ((mach-headers (readlink
(string-append kernel-headers "/include/mach")))
(incdir (string-append output "/include")))
(copy-recursively (string-append libc "/include") incdir)
(copy-recursively (string-append kernel-headers "/include/mach")
(string-append incdir "/mach"))
#t))
;; As of glibc 2.39, essential Mach headers get installed by glibc
;; itself in its own includedir, except for most of mach/machine/*.h.
;; Copy anything that's missing from MACH-HEADERS.
(copy-recursively mach-headers
(string-append incdir "/mach")
#:select?
(let ((prefix (string-length mach-headers))
(target (string-append incdir "/mach")))
(lambda (file stat)
;; Select everything but files and symlinks that
;; already exist under TARGET.
(or (eq? 'directory (stat:type stat))
(let ((suffix (string-drop file prefix)))
(not (file-exists?
(in-vicinity target suffix))))))))))
(define (copy-libc+linux-headers output kernel-headers)
(let* ((incdir (string-append output "/include")))
(copy-recursively (string-append libc "/include") incdir)