From 2c942b89feebd73cd3393ba34994bd395a520c70 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Sat, 4 Apr 2015 22:08:45 +0600 Subject: Fix the CPUID case. Remove unused variables. --- src/hvinfo.adb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') 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 -- cgit v1.2.3