with Interfaces; package Bit_arrays is type Bit_array is array(integer range <>) of Boolean; pragma Pack(Bit_array); end Bit_arrays;