From 577c02eb40569157d970435627c36d65ebbafb90 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 31 May 2015 21:40:29 -0400 Subject: [PATCH] build: syscalls: Add additional mount flags. * guix/build/syscalls.scm (MS_NOSUID, MS_NODEV, MS_NOEXEC, MS_STRICTATIME): New variables. --- guix/build/syscalls.scm | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 3585bf27a8..ec1ce89016 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015 Ludovic Courtès +;;; Copyright © 2015 David Thompson ;;; ;;; This file is part of GNU Guix. ;;; @@ -26,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 @@ -136,10 +141,14 @@ entries)))) ;; Linux mount flags, from libc's . -(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)))