summaryrefslogtreecommitdiff
path: root/src/hvinfo.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/hvinfo.adb')
-rw-r--r--src/hvinfo.adb9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/hvinfo.adb b/src/hvinfo.adb
index e87507e..7825210 100644
--- a/src/hvinfo.adb
+++ b/src/hvinfo.adb
@@ -3,11 +3,14 @@ with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Text_IO; use Ada.Text_IO;
with Hypervisor_Check; use Hypervisor_Check;
-
procedure HVInfo is
begin
- Put_Line (To_String (Get_Vendor_String));
-
+ -- Try CPUID checks first
+ if Hypervisor_Present then
+ Put_Line (To_String (Get_Vendor_Name));
+ else
+ null;
+ end if;
end HVInfo;