diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-04 22:08:45 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-04 22:08:45 +0600 |
| commit | 2c942b89feebd73cd3393ba34994bd395a520c70 (patch) | |
| tree | dd540bc9774de68120dfcd1fd064f69ce00521c1 | |
| parent | f01c8f1a2649379623a3e02bb04fc3c5f5d65909 (diff) | |
| download | hvinfo-2c942b89feebd73cd3393ba34994bd395a520c70.tar.gz hvinfo-2c942b89feebd73cd3393ba34994bd395a520c70.zip | |
Fix the CPUID case.
Remove unused variables.
| -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 |