lbailly/liminix
1
0
Fork 0
forked from DGNum/liminix
Code Pull requests 2 Activity Actions

qemu mips expects different file size for u-boot

Browse source
This commit is contained in:
Daniel Barlow 2023-12-19 18:48:28 +00:00
parent 32c13c46bb
commit ab0631c555
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
pkgs/run-liminix-vm/run-liminix-vm.fnl
View file

@ -36,7 +36,7 @@
(match args (match args
["--background" dir & rest] (assoc (parse-args rest) :background dir) ["--background" dir & rest] (assoc (parse-args rest) :background dir)
["--u-boot" bin & rest] ["--u-boot" bin & rest]
(assoc (parse-args rest) :u-boot (pad-file bin (* 64 1024) "\xff")) (assoc (parse-args rest) :u-boot bin)
["--disk-image" image & rest ] (assoc (parse-args rest) ["--disk-image" image & rest ] (assoc (parse-args rest)
:disk-image (pad-file image 1024)) :disk-image (pad-file image 1024))
["--arch" arch & rest] (assoc (parse-args rest) :arch arch) ["--arch" arch & rest] (assoc (parse-args rest) :arch arch)
@ -47,9 +47,24 @@
{ :kernel kernel :rootfs (pad-file rootfsimg (* 16 1024)) } { :kernel kernel :rootfs (pad-file rootfsimg (* 16 1024)) }
)) ))
(fn pad-u-boot [options]
(if options.u-boot
(let [size (.
{
:mips (* 4 1024)
:aarch64 (* 64 1024)
:arm (* 64 1024)
}
options.arch)]
(assoc options
:u-boot
(pad-file options.u-boot size "\xff")))
options))
(local options (local options
(assert (assert
(merge { :arch "mips" } (parse-args arg)) (pad-u-boot
(merge { :arch "mips" } (parse-args arg)))
(.. "Usage: " (. arg 0) " blah bah"))) (.. "Usage: " (. arg 0) " blah bah")))
(fn background [dir] (fn background [dir]