vm: Pass "panic=1" to Linux.

* gnu/build/vm.scm (load-in-linux-vm): Always pass "panic=1" after '-append'.
This commit is contained in:
Ludovic Courtès 2018-05-25 12:04:22 +02:00
parent 4806d390cb
commit 98e0b1288f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 4 deletions

View File

@ -106,11 +106,16 @@ the #:references-graphs parameter of 'derivation'."
(not target-arm32?)) (not target-arm32?))
'("-enable-kvm") '("-enable-kvm")
'()) '())
;; Pass "panic=1" so that the guest dies upon error.
"-append" "-append"
;; The serial port name differs between emulated architectures/machines. ,(string-append "panic=1 --load=" builder
,@(if target-arm32?
`(,(string-append "console=ttyAMA0 --load=" builder)) ;; The serial port name differs between emulated
`(,(string-append "console=ttyS0 --load=" builder))) ;; architectures/machines.
" console="
(if target-arm32? "ttyAMA0" "ttyS0"))
;; NIC is not supported on ARM "virt" machine, so use a user mode ;; NIC is not supported on ARM "virt" machine, so use a user mode
;; network stack instead. ;; network stack instead.
,@(if target-arm32? ,@(if target-arm32?