mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
syscalls: Fix Linux detection in 'readdir*'.
* guix/build/syscalls.scm (readdir*): Fix Linux detection for `arm-unknown-linux-gnueabihf'.
This commit is contained in:
parent
e68c8d3ef8
commit
fd546bbbee
1 changed files with 2 additions and 1 deletions
|
@ -4,6 +4,7 @@
|
|||
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
|
||||
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
|
||||
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -943,7 +944,7 @@ (define (readdir-procedure name-field-offset sizeof-dirent-header
|
|||
|
||||
(define readdir*
|
||||
;; Decide at run time which one must be used.
|
||||
(if (string-suffix? "linux-gnu" %host-type)
|
||||
(if (string-contains %host-type "linux-gnu")
|
||||
(readdir-procedure (c-struct-field-offset %struct-dirent-header/linux
|
||||
name)
|
||||
sizeof-dirent-header/linux
|
||||
|
|
Loading…
Reference in a new issue