diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-03-10 23:01:50 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-03-10 23:01:50 +0600 |
| commit | 9bb91cda7cbe93a01d4cc5fb5e4d2e4fd54f13c9 (patch) | |
| tree | 1340c0fb472066093e932c1e78032cd4f011ae6c /src/hvinfo.adb | |
| parent | d95502a897fc2b5ca26d78ea40c32f13f1733311 (diff) | |
| download | hvinfo-9bb91cda7cbe93a01d4cc5fb5e4d2e4fd54f13c9.tar.gz hvinfo-9bb91cda7cbe93a01d4cc5fb5e4d2e4fd54f13c9.zip | |
Don't "use" Command_Line;
Diffstat (limited to 'src/hvinfo.adb')
| -rw-r--r-- | src/hvinfo.adb | 7 |
1 files changed, 4 insertions, 3 deletions
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; |