[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: build: syscalls: Add additional mount flags.
From: |
David Thompson |
Subject: |
02/03: build: syscalls: Add additional mount flags. |
Date: |
Tue, 02 Jun 2015 13:02:07 +0000 |
davexunit pushed a commit to branch wip-container
in repository guix.
commit a18b64d4099a5ed860aa485d921aec4c75d9cd10
Author: David Thompson <address@hidden>
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 3346358..a47d333 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
@@ -145,10 +149,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)))