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.ads | |
| 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.ads')
| -rw-r--r-- | src/hypervisor_check.ads | 2 |
1 files changed, 2 insertions, 0 deletions
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; |