diff options
Diffstat (limited to 'src/hvinfo.adb')
| -rw-r--r-- | src/hvinfo.adb | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/hvinfo.adb b/src/hvinfo.adb index e545427..342a53e 100644 --- a/src/hvinfo.adb +++ b/src/hvinfo.adb @@ -91,9 +91,15 @@ begin IO.Put_Line ("CPUID hypervisor bit is set"); UIO.Put_Line ("Hypervisor identifier is """ & Get_Vendor_String & """"); end if; - end; - Hypervisor_Name := Get_Vendor_Name; + Hypervisor_Name := Get_Vendor_Name; + + -- VirtualBox may use KVM or Hyper-V as its backend, + -- but still exposes its own graphics card so that setup can be detected + if VirtualBox_PCI_Present then + Hypervisor_Name := "VirtualBox (using " & Hypervisor_Name & ")"; + end if + end; elsif DMI_Available then -- VirtualBox, Parallels, and possible others only -- mark their presence by setting SMBIOS vendor string |