me/guix
Archived
1
0
Fork 0
Code Activity

syscalls: Consistently use existing linux? definition.

Browse source 
Instead of duplicating this existing logic across the source file. This
will make it easier to add additional linux targets (e.g. linux-musl) in
the future.

* guix/build/syscalls.scm (readdir*, write-socket-address!)
(read-socket-address): Use linux? constant.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Change-Id: I833c1d1630dcb8319584de1ea918cb22696f0058
This commit is contained in:
Sören Tempel 2023-09-17 17:21:48 +02:00 • committed by Ludovic Courtès
parent 54e6788267
commit dae956e796
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/build/syscalls.scm
View file

@ -1245,7 +1245,7 @@ system to PUT-OLD."
(define readdir* (define readdir*
;; Decide at run time which one must be used. ;; Decide at run time which one must be used.
(if (string-contains %host-type "linux-gnu") (if linux?
(readdir-procedure (c-struct-field-offset %struct-dirent-header/linux (readdir-procedure (c-struct-field-offset %struct-dirent-header/linux
name) name)
sizeof-dirent-header/linux sizeof-dirent-header/linux
@ -1665,7 +1665,7 @@ bytevector BV at INDEX."
(error "unsupported socket address" sockaddr))))) (error "unsupported socket address" sockaddr)))))
(define write-socket-address! (define write-socket-address!
(if (string-contains %host-type "linux-gnu") (if linux?
write-socket-address!/linux write-socket-address!/linux
write-socket-address!/hurd)) write-socket-address!/hurd))
@ -1697,7 +1697,7 @@ bytevector BV at INDEX."
(vector family))))) (vector family)))))
(define read-socket-address (define read-socket-address
(if (string-contains %host-type "linux-gnu") (if linux?
read-socket-address/linux read-socket-address/linux
read-socket-address/hurd)) read-socket-address/hurd))