diff options
| -rw-r--r-- | src/hypervisor_check.adb | 2 | ||||
| -rw-r--r-- | src/hypervisor_check.ads | 2 |
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; |