From 9bb91cda7cbe93a01d4cc5fb5e4d2e4fd54f13c9 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Tue, 10 Mar 2015 23:01:50 +0600 Subject: Don't "use" Command_Line; --- src/hvinfo.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/hvinfo.adb') diff --git a/src/hvinfo.adb b/src/hvinfo.adb index aa456a4..0d4be3f 100644 --- a/src/hvinfo.adb +++ b/src/hvinfo.adb @@ -6,6 +6,7 @@ with Hypervisor_Check; use Hypervisor_Check; procedure HVInfo is package US renames Ada.Strings.Unbounded; + package CL renames Ada.Command_Line; CPUID_HV_Name, SMBIOS_HV_Name, Hypervisor_Name : US.Unbounded_String; begin CPUID_HV_Name := US.To_Unbounded_String (""); @@ -21,12 +22,12 @@ begin use US; begin if (CPUID_HV_Name = "") and (SMBIOS_HV_Name = "") then - Set_Exit_Status (1); + CL.Set_Exit_Status (1); elsif (CPUID_HV_Name /= "") then - Set_Exit_Status (0); + CL.Set_Exit_Status (0); UIO.Put_Line (CPUID_HV_Name); else - Set_Exit_Status (0); + CL.Set_Exit_Status (0); UIO.Put_Line (SMBIOS_HV_Name); end if; end; -- cgit v1.2.3