diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-06 03:17:31 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-06 03:17:31 +0600 |
| commit | 50df08977effb03313051ab77a9f0a93490f487a (patch) | |
| tree | eafa4352eb60f888d9af43ff65b76668c9b6b76d | |
| parent | 778a3e1f695267815bff99df4ecc7443289ee325 (diff) | |
| download | hvinfo-50df08977effb03313051ab77a9f0a93490f487a.tar.gz hvinfo-50df08977effb03313051ab77a9f0a93490f487a.zip | |
Add bhyve support.
| -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 |