summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-22 21:57:39 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-22 23:24:13 +0200
commit3035b50f28c1bcbc0a2bb09457a69ea9c06d69e0 (patch)
treec5352fdea58f477f00c70ce2a961cc216802be2d
parentca143f13791e65a6469426523d1a1a75cc4295de (diff)
linux-initrd: Build /dev/loop* nodes.
* guix/build/linux-initrd.scm (make-essential-device-nodes): Build /dev/loop[0-7].
-rw-r--r--guix/build/linux-initrd.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/build/linux-initrd.scm b/guix/build/linux-initrd.scm
index 8db9f02caf..5be3c1ac2a 100644
--- a/guix/build/linux-initrd.scm
+++ b/guix/build/linux-initrd.scm
@@ -168,6 +168,14 @@ Return the value associated with OPTION, or #f on failure."
(symlink "/proc/self/fd/1" (scope "dev/stdout"))
(symlink "/proc/self/fd/2" (scope "dev/stderr"))
+ ;; Loopback devices.
+ (let loop ((i 0))
+ (when (< i 8)
+ (mknod (scope (string-append "dev/loop" (number->string i)))
+ 'block-special #o660
+ (device-number 7 i))
+ (loop (+ 1 i))))
+
;; File systems in user space (FUSE).
(mknod (scope "dev/fuse") 'char-special #o666 (device-number 10 229)))