diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-04 15:49:24 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-04 15:49:24 +0600 |
| commit | 518fd7a8eaf62befa3f03809a19b3855ad37e3b4 (patch) | |
| tree | b2cf7b438dc8c3cc62e3964f5933929e5f396637 /src/hypervisor_check.adb | |
| parent | 34142557b1cf80850c2de4353b00a04362e7bad5 (diff) | |
| download | hvinfo-518fd7a8eaf62befa3f03809a19b3855ad37e3b4.tar.gz hvinfo-518fd7a8eaf62befa3f03809a19b3855ad37e3b4.zip | |
Add a config package and some OS flags.
Diffstat (limited to 'src/hypervisor_check.adb')
| -rw-r--r-- | src/hypervisor_check.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb index 83bb107..64964d8 100644 --- a/src/hypervisor_check.adb +++ b/src/hypervisor_check.adb @@ -99,10 +99,13 @@ package body Hypervisor_Check is function Get_DMI_Vendor_String return US.Unbounded_String is Name : US.Unbounded_String; begin - -- Linux - Name := Head_Of_File (Linux_Sys_Vendor_File); - return Name; + if Config.Linux then + Name := Head_Of_File (Linux_Sys_Vendor_File); + else + Name := US.To_Unbounded_String(""); + end if; + return Name; end Get_DMI_Vendor_String; function Get_DMI_Vendor_Name return US.Unbounded_String is |