From c7653cc0c52a7fe30ab95a98a2e750e535c7e1c9 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Sat, 4 Apr 2015 16:06:18 +0600
Subject: Raise OS_Not_Supported when something is not implemented on this OS.

---
 src/hypervisor_check.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/hypervisor_check.adb')

diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb
index 64964d8..a8bf9a6 100644
--- a/src/hypervisor_check.adb
+++ b/src/hypervisor_check.adb
@@ -102,7 +102,7 @@ package body Hypervisor_Check is
         if Config.Linux then
             Name := Head_Of_File (Linux_Sys_Vendor_File);
         else
-            Name := US.To_Unbounded_String("");
+            raise OS_Not_Supported;
         end if;
 
         return Name;
-- 
cgit v1.2.3