--------------------------------
-- Ivan Levashew aka OCTAGRAM --
--              Barnaul, 2009 --
--------------------------------

-- Turbo_Private.CPUID, x86 version

package Turbo_Private.CPUID is

   pragma Preelaborate;

   function CPU_Arch return Integer;
   --   stands for
   -- 3 386
   -- 4 486
   -- 5 Pentium (or better)
   -- ? I was lazy enough to implement the further
   --   CPU detection, but one shouldn't count on my
   --   laziness. Once in a blue moon I might want to
   --   implement further CPU family detection.
   -- Use CPU_Arch >= 5 as opposed to CPU_Arch = 5

end Turbo_Private.CPUID;
