diff options
Diffstat (limited to 'src/hvinfo.adb')
| -rw-r--r-- | src/hvinfo.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/hvinfo.adb b/src/hvinfo.adb index e87507e..7825210 100644 --- a/src/hvinfo.adb +++ b/src/hvinfo.adb @@ -3,11 +3,14 @@ with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; with Ada.Text_IO; use Ada.Text_IO; with Hypervisor_Check; use Hypervisor_Check; - procedure HVInfo is begin - Put_Line (To_String (Get_Vendor_String)); - + -- Try CPUID checks first + if Hypervisor_Present then + Put_Line (To_String (Get_Vendor_Name)); + else + null; + end if; end HVInfo; |
