19 lines
411 B
Ada
19 lines
411 B
Ada
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;
|