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