aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-04-30 23:32:25 +0200
committer宋文武 <iyzsong@gmail.com>2016-05-02 22:05:52 +0800
commit07857052db082224648064265fbaaaa5bf8fa609 (patch)
treef510ba6a3724a1cad537698e90e1e86e95307544
parente19eb93b8564a5c76ae71878e815ccfa75d62325 (diff)
downloadguix-07857052db082224648064265fbaaaa5bf8fa609.tar
guix-07857052db082224648064265fbaaaa5bf8fa609.tar.gz
syscalls: 'statfs' explicitly binds 'statfs64'.
* guix/build/syscalls.scm (statfs): Explicitly bind "statfs64".
-rw-r--r--guix/build/syscalls.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index a85f865180..ed7942c10a 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -515,7 +515,7 @@ string TMPL and return its file name. TMPL must end with 'XXXXXX'."
(spare1 int128))
(define statfs
- (let ((proc (syscall->procedure int "statfs" '(* *))))
+ (let ((proc (syscall->procedure int "statfs64" '(* *))))
(lambda (file)
"Return a <file-system> data structure describing the file system
mounted at FILE."
@@ -523,7 +523,7 @@ mounted at FILE."
(ret (proc (string->pointer file) (bytevector->pointer stat)))
(err (errno)))
(if (zero? ret)
- (read-statfs stat 0)
+ (read-statfs stat)
(throw 'system-error "statfs" "~A: ~A"
(list file (strerror err))
(list err)))))))