3 with Unchecked_Conversion
;
7 Val8
: Interfaces
.Unsigned_8
;
9 type Two_Bit_Int
is range 0 .. 3;
10 for Two_Bit_Int
'size use 2;
12 type Arr
is array (1 .. 5) of Boolean;
13 for Arr
'scalar_storage_order use System
.High_Order_First
;
17 Boolean_Data
: Boolean;
19 Two_Bit_Data
: Two_Bit_Int
;
22 Boolean_Data
at 0 range 0 .. 0;
23 Array_Data
at 0 range 1 .. 5;
24 Two_Bit_Data
at 0 range 6 .. 7;
27 for Rec
'bit_order use System
.High_Order_First
;
28 for Rec
'scalar_storage_order use System
.High_Order_First
;
30 function Conv
is new Unchecked_Conversion
(Rec
, Interfaces
.Unsigned_8
);