From 34c7b0e94c68a4800cb64d3a844d7d47ad3e51a8 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Thu, 5 Mar 2015 17:43:19 +0600 Subject: Make internal functions private in the package interface. --- src/hypervisor_check.adb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/hypervisor_check.adb') diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb index b92f7d9..d939cd9 100644 --- a/src/hypervisor_check.adb +++ b/src/hypervisor_check.adb @@ -54,8 +54,8 @@ package body Hypervisor_Check is use US; Vendor_String, Vendor_Name : Unbounded_String; begin - Vendor_String := Get_Vendor_String; - if Vendor_String = "KVMKVMKVM" then + Vendor_String := Get_Vendor_String; + if Vendor_String = "KVMKVMKVM" then Vendor_Name := To_Unbounded_String ("KVM"); elsif Vendor_String = "XenVMMXenVMM" then Vendor_Name := To_Unbounded_String ("Xen"); @@ -69,5 +69,4 @@ package body Hypervisor_Check is return Vendor_Name; end Get_Vendor_Name; - end Hypervisor_Check; -- cgit v1.2.3