aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-04-30 23:30:56 +0200
committerLudovic Courtès <ludo@gnu.org>2016-04-30 23:40:42 +0200
commit200dac065492691b4291d5d382f38e2391155091 (patch)
tree47c089a51c0c68110ffee6561c9dd0b649700efc
parente411ce186021540770c389ec13b7b5b42252c4bb (diff)
downloadguix-200dac065492691b4291d5d382f38e2391155091.tar
guix-200dac065492691b4291d5d382f38e2391155091.tar.gz
syscalls: statfs: Add missing 'mount-flags' field of 'struct statfs'.
* guix/build/syscalls.scm (<file-system>)[mount-flags]: New field. [spare2]: Remove. (%statfs): Likewise.
-rw-r--r--guix/build/syscalls.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 6cdf65304d..a85f865180 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -59,6 +59,7 @@
file-system-identifier
file-system-maximum-name-length
file-system-fragment-size
+ file-system-mount-flags
statfs
processes
@@ -475,8 +476,7 @@ string TMPL and return its file name. TMPL must end with 'XXXXXX'."
(define-record-type <file-system>
(file-system type block-size blocks blocks-free
blocks-available files free-files identifier
- name-length fragment-size
- spare0 spare1 spare2)
+ name-length fragment-size mount-flags spare0 spare1)
file-system?
(type file-system-type)
(block-size file-system-block-size)
@@ -488,14 +488,14 @@ string TMPL and return its file name. TMPL must end with 'XXXXXX'."
(identifier file-system-identifier)
(name-length file-system-maximum-name-length)
(fragment-size file-system-fragment-size)
+ (mount-flags file-system-mount-flags)
(spare0 file-system--spare0)
- (spare1 file-system--spare1)
- (spare2 file-system--spare2))
+ (spare1 file-system--spare1))
(define-syntax fsword ;fsword_t
(identifier-syntax long))
-(define-c-struct %statfs
+(define-c-struct %statfs ;<bits/statfs.h>
sizeof-statfs ;slightly overestimated
file-system
read-statfs
@@ -510,9 +510,9 @@ string TMPL and return its file name. TMPL must end with 'XXXXXX'."
(identifier uint64) ;really "int[2]"
(name-length fsword)
(fragment-size fsword)
+ (mount-flags fsword)
(spare0 int128) ;really "fsword[4]"
- (spare1 int128)
- (spare2 int64)) ;XXX: to match array alignment
+ (spare1 int128))
(define statfs
(let ((proc (syscall->procedure int "statfs" '(* *))))