Raise OS_Not_Supported when something is not implemented on this OS.

2 files changed, 3 insertions, 1 deletions

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;
diff --git a/src/hypervisor_check.ads b/src/hypervisor_check.ads
index 1118fd4..ebb16cc 100644
--- a/src/hypervisor_check.ads
+++ b/src/hypervisor_check.ads
@@ -12,6 +12,8 @@ package Hypervisor_Check is
     package US renames Ada.Strings.Unbounded;
     package UIO renames Ada.Text_IO.Unbounded_IO;
 
+    OS_Not_Supported : exception;
+
     function Get_Vendor_Name return US.Unbounded_String;
 
     function Hypervisor_Present return Boolean;