diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-04 16:06:18 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-04 16:06:18 +0600 |
| commit | c7653cc0c52a7fe30ab95a98a2e750e535c7e1c9 (patch) | |
| tree | b10f23d4312e7882753eca1e865acea1980f542f /src/hypervisor_check.adb | |
| parent | 518fd7a8eaf62befa3f03809a19b3855ad37e3b4 (diff) | |
| download | hvinfo-c7653cc0c52a7fe30ab95a98a2e750e535c7e1c9.tar.gz hvinfo-c7653cc0c52a7fe30ab95a98a2e750e535c7e1c9.zip | |
Raise OS_Not_Supported when something is not implemented on this OS.
Diffstat (limited to 'src/hypervisor_check.adb')
| -rw-r--r-- | src/hypervisor_check.adb | 2 |
1 files changed, 1 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; |