mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

syscalls: 'statfs' explicitly binds 'statfs64'.

Browse source 
* guix/build/syscalls.scm (statfs): Explicitly bind "statfs64".
This commit is contained in:
Ludovic Courtès 2016-04-30 23:32:25 +02:00
parent 200dac0654
commit 96f2a432bf
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/build/syscalls.scm
View file

@ -515,7 +515,7 @@ (define-c-struct %statfs ;<bits/statfs.h>
(spare1 int128)) (spare1 int128))
(define statfs (define statfs
(let ((proc (syscall->procedure int "statfs" '(* *)))) (let ((proc (syscall->procedure int "statfs64" '(* *))))
(lambda (file) (lambda (file)
"Return a <file-system> data structure describing the file system "Return a <file-system> data structure describing the file system
mounted at FILE." mounted at FILE."
@ -523,7 +523,7 @@ (define statfs
(ret (proc (string->pointer file) (bytevector->pointer stat))) (ret (proc (string->pointer file) (bytevector->pointer stat)))
(err (errno))) (err (errno)))
(if (zero? ret) (if (zero? ret)
(read-statfs stat 0) (read-statfs stat)
(throw 'system-error "statfs" "~A: ~A" (throw 'system-error "statfs" "~A: ~A"
(list file (strerror err)) (list file (strerror err))
(list err))))))) (list err)))))))