diff mbox series

[bug#38462,v2] linux-boot: Don't ignore flags when mounting root file system.

Message ID 871rtb6c4a.fsf@yamatai
State Accepted
Headers show
Series [bug#38462,v2] linux-boot: Don't ignore flags when mounting root file system. | expand

Commit Message

Guillaume Le Vaillant Dec. 10, 2019, 10:37 p.m. UTC 
Ludovic Courtès skribis:

> Ludovic Courtès <ludo@gnu.org> skribis:
>
> Actually no: “make check-system TESTS=basic” fails after that.
> Could you take a look?
>
> Thanks in advance,
> Ludo’.

The attached patch should fix the issue. There was a mix up between the
representations of flags as a list of symbols or as a bit mask.

Comments

Ludovic Courtès Dec. 12, 2019, 4:55 p.m. UTC | #1 
Hi,

Guillaume Le Vaillant <glv@posteo.net> skribis:

> Ludovic Courtès skribis:
>
>> Ludovic Courtès <ludo@gnu.org> skribis:
>>
>> Actually no: “make check-system TESTS=basic” fails after that.
>> Could you take a look?
>>
>> Thanks in advance,
>> Ludo’.
>
> The attached patch should fix the issue. There was a mix up between the
> representations of flags as a list of symbols or as a bit mask.

Yeah.

> From f26de9d63a84842029d2393f28f6c96aa2bc766e Mon Sep 17 00:00:00 2001
> From: Guillaume Le Vaillant <glv@posteo.net>
> Date: Mon, 2 Dec 2019 21:15:50 +0100
> Subject: [PATCH v2] linux-boot: Don't ignore flags when mounting root file
>  system.
>
> * gnu/build/linux-boot.scm (mount-root-file-system): Add the 'flags' keyword
>   argument and use it when mounting the root file system.
>   (boot-system): Pass the root file system flags to 'mount-root-file-system'.

Applied for good this time, thanks!

Ludo’.
diff mbox series

Patch

From f26de9d63a84842029d2393f28f6c96aa2bc766e Mon Sep 17 00:00:00 2001
From: Guillaume Le Vaillant <glv@posteo.net>
Date: Mon, 2 Dec 2019 21:15:50 +0100
Subject: [PATCH v2] linux-boot: Don't ignore flags when mounting root file
 system.

* gnu/build/linux-boot.scm (mount-root-file-system): Add the 'flags' keyword
  argument and use it when mounting the root file system.
  (boot-system): Pass the root file system flags to 'mount-root-file-system'.
---
 gnu/build/linux-boot.scm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/gnu/build/linux-boot.scm b/gnu/build/linux-boot.scm
index 950a3507f2..3d40a7d05d 100644
--- a/gnu/build/linux-boot.scm
+++ b/gnu/build/linux-boot.scm
@@ -358,10 +358,10 @@  the last argument of `mknod'."
           (filter-map string->number (scandir "/proc")))))
 
 (define* (mount-root-file-system root type
-                                 #:key volatile-root? options)
-  "Mount the root file system of type TYPE at device ROOT.  If VOLATILE-ROOT?
-is true, mount ROOT read-only and make it an overlay with a writable tmpfs
-using the kernel built-in overlayfs.  OPTIONS indicates the options to use
+                                 #:key volatile-root? (flags 0) options)
+  "Mount the root file system of type TYPE at device ROOT. If VOLATILE-ROOT? is
+true, mount ROOT read-only and make it an overlay with a writable tmpfs using
+the kernel built-in overlayfs. FLAGS and OPTIONS indicates the options to use
 to mount ROOT."
 
   (if volatile-root?
@@ -384,7 +384,7 @@  to mount ROOT."
                "lowerdir=/real-root,upperdir=/rw-root/upper,workdir=/rw-root/work"))
       (begin
         (check-file-system root type)
-        (mount root "/root" type 0 options)))
+        (mount root "/root" type flags options)))
 
   ;; Make sure /root/etc/mtab is a symlink to /proc/self/mounts.
   (false-if-exception
@@ -474,6 +474,13 @@  upon error."
              mounts)
         "ext4"))
 
+  (define root-fs-flags
+    (mount-flags->bit-mask (or (any (lambda (fs)
+                                      (and (root-mount-point? fs)
+                                           (file-system-flags fs)))
+                                    mounts)
+                               '())))
+
   (define root-fs-options
     (any (lambda (fs)
            (and (root-mount-point? fs)
@@ -533,6 +540,7 @@  upon error."
               (mount-root-file-system (canonicalize-device-spec root)
                                       root-fs-type
                                       #:volatile-root? volatile-root?
+                                      #:flags root-fs-flags
                                       #:options root-fs-options))
             (mount "none" "/root" "tmpfs"))
 
-- 
2.24.0