1 package Bit_Packed_Array4 is
3 type Data_Type is array (1 .. 39) of Boolean;
4 pragma Pack (Data_Type);
5 for Data_Type'Alignment use 1;
7 type Message_Type is record
11 for Message_Type use record
12 Valid at 0 range 0 .. 0;
13 Data at 0 range 1 .. 39;
16 procedure Process (M : Message_Type);
18 end Bit_Packed_Array4;