guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/71: syscalls: 'statfs' explicitly binds 'statfs64'.


From: ???
Subject: 02/71: syscalls: 'statfs' explicitly binds 'statfs64'.
Date: Mon, 02 May 2016 14:08:15 +0000

iyzsong pushed a commit to branch gnome-updates
in repository guix.

commit 07857052db082224648064265fbaaaa5bf8fa609
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)))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]