blob: 7713e8f3e5b73239914bea5ba16b3ace762ecb8f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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;
|
