diff options
| author | Daniil Baturin <daniil@baturin.org> | 2019-01-20 17:34:26 +0000 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2019-01-20 17:34:26 +0000 |
| commit | 0801a54b6c5d95ce6e18d6bbd525c66b9d7a6bdf (patch) | |
| tree | 23bca7d5fb5c3fcf7c458892bb6a3235ea344c8e | |
| parent | 91dc79ab8685dde591b59c2fd4aa4b5fd809d893 (diff) | |
| download | hvinfo-0801a54b6c5d95ce6e18d6bbd525c66b9d7a6bdf.tar.gz hvinfo-0801a54b6c5d95ce6e18d6bbd525c66b9d7a6bdf.zip | |
Add an OS-independent check for QEMU > 2.10 (using TCG signature).
| -rw-r--r-- | src/hypervisor_check.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb index 4619b30..e598169 100644 --- a/src/hypervisor_check.adb +++ b/src/hypervisor_check.adb @@ -141,6 +141,8 @@ package body Hypervisor_Check is Vendor_String := Get_Vendor_String; if Vendor_String = "KVMKVMKVM" then Vendor_Name := To_Unbounded_String (KVM); + elsif Vendor_String = "TCGTCGTCGTCG" then + Vendor_Name := To_Unbounded_String (QEMU); elsif Vendor_String = "XenVMMXenVMM" then Vendor_Name := To_Unbounded_String (Xen_HVM); elsif Vendor_String = "VMwareVMware" then |