08/09: vm: add arguments to use virt machine type for qemu-riscv64.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit e6241de15a2aa04efc99769d768849240eaffea5
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Tue Mar 19 23:18:40 2024 +0800

    vm: add arguments to use virt machine type for qemu-riscv64.
    
    * gnu/system/vm.scm (system-qemu-image/shared-store-script): When target
    riscv64, add arguments to set qemu virt machine type.
    
    Change-Id: I974c82fdd2d5bfc01caff9e6411db38e472b5cd4
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/system/vm.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index d4044a4a39..64cc321ebf 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -295,6 +295,10 @@ useful when FULL-BOOT?  is true."
                         "-initrd" #$(file-append os "/initrd")
                         (format #f "-append ~s"
                                 (string-join #$kernel-arguments " "))))
+              ;; Default qemu-riscv64 have not PCI, virt have it, so we set it.
+              #$@(if (target-riscv64? (or target system))
+                     #~("-M" "virt")
+                     #~())
               #$@(common-qemu-options (if volatile? base-image rw-image)
                                       (map file-system-mapping-source
                                            (cons %store-mapping mappings))