3 type B1_Type
is range 0 .. 2**1 - 1;
4 for B1_Type
'Size use 1;
6 type U10_Type
is range 0 .. 2**10 - 1;
7 for U10_Type
'Size use 10;
9 type B5_Type
is range 0 .. 2**5 - 1;
10 for B5_Type
'Size use 5;
12 type B11_Type
is range 0 .. 2**11 - 1;
13 for B11_Type
'Size use 11;
23 U10
at 0 range 1 .. 10;
24 B5
at 0 range 11 .. 15;
28 type Arr
is array (1 .. 5) of Rec1
;
31 subtype Header_Type
is String (1 .. 16);
36 Deleted_Reports
: Arr
;
41 Header
at 0 range 0 .. 127;
42 Spare_5
at 16 range 0 .. 4;
43 Deleted_Reports
at 16 range 5 .. 84;
44 Block_End
at 24 range 21 .. 31;
46 for Rec2
'Size use 224;
48 type Enum
is (A_Msg
, B_Msg
, C_Msg
, D_Msg
);
50 type Rec3
(Msg_Type
: Enum
:= Enum
'First) is record
52 when A_Msg
=> A_M
: Arr
;
53 when B_Msg
=> B_M
: Arr
;
54 when C_Msg
=> C_M
: Rec2
;