diff options
| author | Daniil Baturin <daniil@baturin.org> | 2019-01-20 17:17:38 +0000 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2019-01-20 17:17:38 +0000 |
| commit | 91dc79ab8685dde591b59c2fd4aa4b5fd809d893 (patch) | |
| tree | 154de9a10a962e72b1ee08b5ef13952038fa1527 /src/hypervisor_check.ads | |
| parent | 9d5df5a1b305e0f44e87a25dbab9fb0f99b6130f (diff) | |
| download | hvinfo-91dc79ab8685dde591b59c2fd4aa4b5fd809d893.tar.gz hvinfo-91dc79ab8685dde591b59c2fd4aa4b5fd809d893.zip | |
Add support for detecting QEMU on x86.
Side effect: KVM on ARM64 is detected as QEMU (maybe better than not detecting anything).
Diffstat (limited to 'src/hypervisor_check.ads')
| -rw-r--r-- | src/hypervisor_check.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/hypervisor_check.ads b/src/hypervisor_check.ads index 3bb84be..3c62f5c 100644 --- a/src/hypervisor_check.ads +++ b/src/hypervisor_check.ads @@ -62,6 +62,7 @@ package Hypervisor_Check is VirtualBox : constant String := "VirtualBox"; Parallels : constant String := "Parallels"; bhyve : constant String := "bhyve"; + QEMU : constant String := "QEMU"; private @@ -83,6 +84,7 @@ private HyperV_DMI_Pattern : constant String := "Microsoft Corporation"; VirtualBox_DMI_Pattern : constant String := "innotek GmbH"; Parallels_DMI_Pattern : constant String := "Parallels"; + QEMU_DMI_Pattern : constant String := "QEMU"; function CPUID (Arg : Unsigned_32) return CPUID_Registers; |