File : bit_arrays.ads


with Interfaces;

package Bit_arrays is

   type Bit_array is array(integer range <>) of Boolean;
   pragma Pack(Bit_array);

end Bit_arrays;