blob: 7713e8f3e5b73239914bea5ba16b3ace762ecb8f [file] [log] [blame]
package Bit_Packed_Array4 is
type Data_Type is array (1 .. 39) of Boolean;
pragma Pack (Data_Type);
for Data_Type'Alignment use 1;
type Message_Type is record
Valid : Boolean;
Data : Data_Type;
end record;
for Message_Type use record
Valid at 0 range 0 .. 0;
Data at 0 range 1 .. 39;
end record;
procedure Process (M : Message_Type);
end Bit_Packed_Array4;