me
/
guix
Archived
1
0
Fork 0
Code

syscalls: Consistently use existing linux? definition. 

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
master
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*
;; 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
name)
sizeof-dirent-header/linux
@ -1665,7 +1665,7 @@ bytevector BV at INDEX."
(error "unsupported socket address" sockaddr)))))
(define write-socket-address!
(if (string-contains %host-type "linux-gnu")
(if linux?
write-socket-address!/linux
write-socket-address!/hurd))
@ -1697,7 +1697,7 @@ bytevector BV at INDEX."
(vector family)))))
(define read-socket-address
(if (string-contains %host-type "linux-gnu")
(if linux?
read-socket-address/linux
read-socket-address/hurd))