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
;