davexunit pushed a commit to branch wip-container
in repository guix.
commit 0740cf7577f4ce21e94b776dc68c0cc9585e3d2d
Author: David Thompson <[email protected]>
Date: Sun May 31 21:40:29 2015 -0400
build: syscalls: Add additional mount flags.
* guix/build/syscalls.scm (MS_NOSUID, MS_NODEV, MS_NOEXEC, MS_STRICTATIME):
New variables.
---
guix/build/syscalls.scm | 16 ++++++++++++----
1 files changed, 12 insertions(+), 4 deletions(-)
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 6794d9d..37ded8d 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -27,9 +27,13 @@
#:use-module (ice-9 ftw)
#:export (errno
MS_RDONLY
+ MS_NOSUID
+ MS_NODEV
+ MS_NOEXEC
MS_REMOUNT
MS_BIND
MS_MOVE
+ MS_STRICTATIME
restart-on-EINTR
mount
umount
@@ -146,10 +150,14 @@
entries))))
;; Linux mount flags, from libc's <sys/mount.h>.
-(define MS_RDONLY 1)
-(define MS_REMOUNT 32)
-(define MS_BIND 4096)
-(define MS_MOVE 8192)
+(define MS_RDONLY 1)
+(define MS_NOSUID 2)
+(define MS_NODEV 4)
+(define MS_NOEXEC 8)
+(define MS_REMOUNT 32)
+(define MS_BIND 4096)
+(define MS_MOVE 8192)
+(define MS_STRICTATIME 16777216)
(define mount
(let* ((ptr (dynamic-func "mount" (dynamic-link)))
