1 package Bit_Packed_Array5 is
3 type Bit_Array is array (Integer range <>) of Boolean;
4 pragma Pack (Bit_Array);
6 type Short_Bit_Array_Type is new Bit_Array (0 .. 15);
7 for Short_Bit_Array_Type'Size use 16;
9 type Word_Type is range 0 .. 65535;
10 for Word_Type'Size use 16;
12 function Inv (Word : Word_Type) return Word_Type;
14 end Bit_Packed_Array5;