diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/hvinfo.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/hvinfo.adb b/src/hvinfo.adb index d3c261c..e9729a5 100644 --- a/src/hvinfo.adb +++ b/src/hvinfo.adb @@ -15,7 +15,7 @@ procedure HVInfo is package IO renames Ada.Text_IO; package GCL renames GNAT.Command_Line; - CPUID_HV_Name, SMBIOS_HV_Name, Hypervisor_Name : US.Unbounded_String; + SMBIOS_HV_Name : US.Unbounded_String; begin -- Handle command line options declare @@ -45,7 +45,6 @@ begin -- Assume success until proven otherwise CL.Set_Exit_Status (0); - -- Check for Xen first, as it has two distinct modes if Xen_Present then if Hypervisor_Present then @@ -58,7 +57,7 @@ begin elsif Hypervisor_Present then -- This covers KVM, VMware, and other hypervisors -- that use CPUID leaf as primary identification method - UIO.Put_Line (CPUID_HV_Name); + UIO.Put_Line (Get_Vendor_Name); else -- VirtualBox, Parallels, and possible others only -- mark their presence by setting SMBIOS vendor string |