[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: syscalls: 'statfs' explicitly binds 'statfs64'.
From: |
Ludovic Courtès |
Subject: |
02/02: syscalls: 'statfs' explicitly binds 'statfs64'. |
Date: |
Sat, 30 Apr 2016 21:40:52 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 96f2a432bf94c531c4492a46b36fa4836d00a79b
Author: Ludovic Courtès <address@hidden>
Date: Sat Apr 30 23:32:25 2016 +0200
syscalls: 'statfs' explicitly binds 'statfs64'.
* guix/build/syscalls.scm (statfs): Explicitly bind "statfs64".
---
guix/build/syscalls.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index a85f865..ed7942c 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)))))))