5 type Bitmap_T
is array (Natural range <>) of Boolean;
6 pragma Pack
(Bitmap_T
);
8 type Uint8
is range 0 .. 2 ** 8 - 1;
11 type Record_With_QImode_Variants
(D
: Boolean) is record
12 C_Filler
: Bitmap_T
(1..7);
13 C_Map
: Bitmap_T
(1..3);
17 F_Filler
: Bitmap_T
(1..7);
22 pragma Pack
(Record_With_QImode_Variants
);
24 procedure Fill
(R
: out Record_With_QImode_Variants
) is
26 R
.C_Filler
:= (True, False, True, False, True, False, True);
27 R
.C_Map
:= (True, False, True);
31 RT
: Record_With_QImode_Variants
(D
=> True);
35 if RT
.T_Int
/= 17 then