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 /src/hypervisor_check.adb | |
| parent | 778a3e1f695267815bff99df4ecc7443289ee325 (diff) | |
| download | hvinfo-50df08977effb03313051ab77a9f0a93490f487a.tar.gz hvinfo-50df08977effb03313051ab77a9f0a93490f487a.zip | |
Add bhyve support.
Diffstat (limited to 'src/hypervisor_check.adb')
| -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 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; |