Add a function that maps vendor strings to names.

Also, don't overuse global use clauses.

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;