diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-04 22:34:26 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-04 22:34:26 +0600 |
| commit | df3476d7b8b2653cf09abd6c4d310ab8d6598097 (patch) | |
| tree | f38b556e22bf70c737f664ce9441bb14e3028bc4 | |
| parent | 17de88d250d4e386b00e9a819bf63f195856c430 (diff) | |
| parent | 2c942b89feebd73cd3393ba34994bd395a520c70 (diff) | |
| download | hvinfo-df3476d7b8b2653cf09abd6c4d310ab8d6598097.tar.gz hvinfo-df3476d7b8b2653cf09abd6c4d310ab8d6598097.zip | |
Merge branch 'master' of github.com:dmbaturin/hvinfo
| -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 |