From 50df08977effb03313051ab77a9f0a93490f487a Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Mon, 6 Apr 2015 03:17:31 +0600
Subject: Add bhyve support.

---
 src/hypervisor_check.adb | 2 ++
 src/hypervisor_check.ads | 1 +
 2 files changed, 3 insertions(+)

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
 
-- 
cgit v1.2.3