ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

vm: Always use a native emulator in ‘guix system vm’.

Browse source 
Suggested by Zheng Junjie <zhengjunjie@iscas.ac.cn>.

* gnu/system/vm.scm (system-qemu-image/shared-store-script)[qemu-exec]:
Wrap first element in ‘with-parameters’.

Change-Id: Iab9905aaa7e80bad0372c1ee7c3ea88a89564f8f
This commit is contained in:
Ludovic Courtès 2024-04-16 19:02:17 +02:00
parent b47ae1ecc4
commit d33965908d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/system/vm.scm
View file

@ -287,8 +287,11 @@ (define rw-image
#~(format #f "/tmp/guix-image-~a" (basename #$base-image))) #~(format #f "/tmp/guix-image-~a" (basename #$base-image)))
(define qemu-exec (define qemu-exec
#~(list #+(file-append qemu "/bin/" #~(list #+(with-parameters ((%current-system %system)
(qemu-command (or target system))) (%current-target-system #f))
;; Override %CURRENT-SYSTEM to always use a native emulator.
(file-append qemu "/bin/"
(qemu-command (or target system))))
;; Tells qemu to use the terminal it was started in for IO. ;; Tells qemu to use the terminal it was started in for IO.
#$@(if graphic? '() #~("-nographic")) #$@(if graphic? '() #~("-nographic"))
#$@(if full-boot? #$@(if full-boot?