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 © 2015 Mark H Weaver <mhw@netris.org>
|
||||||
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||||
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
|
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
|
||||||
|
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -943,7 +944,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-suffix? "linux-gnu" %host-type)
|
(if (string-contains %host-type "linux-gnu")
|
||||||
(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
|
||||||
|
|
Reference in a new issue