ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

syscalls: Fix Linux detection in 'readdir*'.

Browse source 
* guix/build/syscalls.scm (readdir*): Fix Linux detection for
`arm-unknown-linux-gnueabihf'.
This commit is contained in:
Julien Lepiller 2020-04-20 16:21:17 +02:00
parent e68c8d3ef8
commit fd546bbbee
No known key found for this signature in database
GPG key ID: 53D457B2D636EE82
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/build/syscalls.scm
View file

@ -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 @@ (define (readdir-procedure name-field-offset sizeof-dirent-header
(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