diff options
| author | Janneke Nieuwenhuizen <janneke@gnu.org> | 2023-10-01 13:43:36 +0200 |
|---|---|---|
| committer | Janneke Nieuwenhuizen <janneke@gnu.org> | 2023-10-01 15:51:23 +0200 |
| commit | 0a1af11ff82254b369fa3ac8a9af2d97bb877ed0 (patch) | |
| tree | e98f64b27de2f7ef8a7e191d7a3b55bc324dc44d /gnu/build/hurd-boot.scm | |
| parent | 337dbf6867597b6e3b72b0bdb2152a42a9f41dbc (diff) | |
hurd-boot: Setup/dev/hdX, /dev/hdXsY IDE device node translators.
The gnumach builtin IDE hd devices are still used, unless booting with
"noide".
* gnu/build/hurd-boot.scm (set-hurd-device-translators): Create /dev/hd{0..3},
/dev/hd{0..3}s{0..3}.
Diffstat (limited to 'gnu/build/hurd-boot.scm')
| -rw-r--r-- | gnu/build/hurd-boot.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gnu/build/hurd-boot.scm b/gnu/build/hurd-boot.scm index 19bdbdf6ae..4407284acb 100644 --- a/gnu/build/hurd-boot.scm +++ b/gnu/build/hurd-boot.scm @@ -249,6 +249,19 @@ set." (iota 10 0)) ,@(append-map (lambda (n) (let* ((n (number->string n)) + (disk (string-append "hd" n)) + (drive (string-append "dev/" disk))) + `((,drive ("/hurd/storeio" ,disk) #o600) + ,@(map (lambda (p) + (let ((p (number->string p))) + `(,(string-append drive "s" p) + ("/hurd/storeio" + ,(string-append disk "s" p)) + #o660))) + (iota 4 1))))) + (iota 4 0)) + ,@(append-map (lambda (n) + (let* ((n (number->string n)) (drive (string-append "dev/wd" n)) (disk (string-append "@/dev/disk:wd" n))) `((,drive ("/hurd/storeio" ,disk) #o600) |