davexunit pushed a commit to branch wip-container in repository guix. commit 70c902ffc1abc71980f0112362a24b49dfaafb9a Author: David Thompson <da...@gnu.org> 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 90975e3..72a91a5 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)))