diff options
| -rw-r--r-- | src/hypervisor_check.adb | 2 | ||||
| -rw-r--r-- | src/hypervisor_check.ads | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb index bbc83f1..826a0a2 100644 --- a/src/hypervisor_check.adb +++ b/src/hypervisor_check.adb @@ -124,6 +124,8 @@ package body Hypervisor_Check is Vendor_Name := To_Unbounded_String ("VMWare"); elsif Vendor_String = "Microsoft Hv" then Vendor_Name := To_Unbounded_String ("Microsoft Hyper-V"); + elsif Vendor_String = "bhyve bhyve" then + Vendor_Name := To_Unbounded_String (bhyve); else Vendor_Name := To_Unbounded_String ("Unknown hypervisor"); end if; diff --git a/src/hypervisor_check.ads b/src/hypervisor_check.ads index 25e137c..f4b1eef 100644 --- a/src/hypervisor_check.ads +++ b/src/hypervisor_check.ads @@ -38,6 +38,7 @@ package Hypervisor_Check is HyperV : constant String := "Microsoft Hyper-V"; VirtualBox : constant String := "VirtualBox"; Parallels : constant String := "Parallels"; + bhyve : constant String := "bhyve"; private |