ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 03:29:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "gnu: hurd: Add gnumach-headers as native input."

Browse source 
gnumach-headers[-cross] are contained in the toolchain; it was only the
`include/mach/machine' symlink that was missing.

This reverts commit 2dd16f46766997c0b3e4ee973ce6e792a4d84fcb.
This commit is contained in:
Janneke Nieuwenhuizen 2024-01-19 14:21:20 +01:00 committed by Ludovic Courtès
parent 0ff267cdf2
commit 41e01a1224
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 16 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
gnu/packages/cross-base.scm
View file

@ -51,7 +51,6 @@ (define-module (gnu packages cross-base)
#:export (cross-binutils
cross-libc
cross-gcc
cross-gnumach-headers
cross-mig
cross-kernel-headers
cross-gcc-toolchain))

33
gnu/packages/hurd.scm
View file

@ -353,7 +353,8 @@ (define-public hurd
"include/tirpc")
":" (or (getenv var) ""))))
'("CROSS_C_INCLUDE_PATH" "C_INCLUDE_PATH"
"CROSS_CPATH" "CPATH"))))
"CROSS_CPATH" "CPATH"))
#t))
(add-after 'unpack 'fix-rpc-headers
(lambda _
(substitute* "nfs/mount.c"
@ -366,12 +367,14 @@ (define-public hurd
"nfsd/main.c"
"nfsd/ops.c")
(("#include <rpc/pmap_prot.h>" m)
(string-append "#include <rpc/types.h>\n#include <rpc/xdr.h>\n" m)))))
(string-append "#include <rpc/types.h>\n#include <rpc/xdr.h>\n" m)))
#t))
(add-before 'build 'pre-build
(lambda _
;; Don't change the ownership of any file at this time.
(substitute* '("daemons/Makefile" "utils/Makefile")
(("-o root -m 4755") ""))))
(("-o root -m 4755") ""))
#t))
(add-after 'unpack 'create-runsystem
(lambda _
;; XXX Work towards having startup.c invoke the Guile rc
@ -446,7 +449,8 @@ (define-public hurd
":" util-linux "/sbin\n"))
(("/sbin/") (string-append out "/sbin/"))
(("/libexec/") (string-append out "/libexec/"))
(("/hurd/") (string-append out "/hurd/"))))))
(("/hurd/") (string-append out "/hurd/")))
#t)))
(add-after 'patch-shebangs 'patch-libexec-shebangs
(lambda* (#:key inputs outputs #:allow-other-keys)
;; XXX: Since the 'patch-shebangs' phase doesn't traverse
@ -456,7 +460,8 @@ (define-public hurd
(path (list (string-append bash "/bin"))))
(for-each (lambda (file)
(patch-shebang file path))
(find-files (string-append out "/libexec"))))))
(find-files (string-append out "/libexec")))
#t)))
(add-after 'build 'build-libdde-linux
(lambda* (#:key inputs native-inputs #:allow-other-keys)
(invoke (string-append (assoc-ref (or native-inputs inputs) "make")
@ -496,7 +501,8 @@ (define-public hurd
(invoke "gunzip" "unifont.gz")
(mkdir-p datadir)
(copy-file "unifont"
(string-append datadir "/vga-system.bdf"))))))
(string-append datadir "/vga-system.bdf"))
#t))))
#:configure-flags
,#~(list (string-append "LDFLAGS=-Wl,-rpath="
#$output "/lib")
@ -511,11 +517,7 @@ (define-public hurd
"CFLAGS=-fcommon")))
(build-system gnu-build-system)
(inputs
`(("gnumach-headers" ,(if (%current-target-system)
(cross-gnumach-headers (%current-target-system))
gnumach-headers))
("libgcrypt" ,libgcrypt) ;for /hurd/random
`(("libgcrypt" ,libgcrypt) ;for /hurd/random
("libdaemon" ,libdaemon) ;for /bin/console --daemonize
("unifont" ,unifont)
("libpciaccess" ,libpciaccess-0.17) ;need libpciaccess > 0.16
@ -534,13 +536,10 @@ (define-public hurd
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("gnumach-headers" ,(if (%current-target-system)
(cross-gnumach-headers (%current-target-system))
gnumach-headers))
("libgcrypt" ,libgcrypt) ;for 'libgcrypt-config'
("mig" ,(if (%current-target-system)
(cross-mig (%current-target-system))
mig))
("mig" , (if (%current-target-system)
(cross-mig (%current-target-system))
mig))
("pkg-config" ,pkg-config)
("perl" ,perl)
("texinfo" ,texinfo-4)