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

-- Turbo_Platform.Bits, 32bit version

with System, Interfaces; use System, Interfaces;

package Turbo_Platform.Bits is
   pragma Preelaborate;
   pragma Assert (Address'Size = 32, "Platform isn't 32bit, BITS must be readjusted");

   subtype Integer_Ptr_Internal is Integer_32;
   subtype Unsigned_Ptr_Internal is Unsigned_32;

end Turbo_Platform.Bits;
