5 type My_Integer
is new Integer;
6 for My_Integer
'Alignment use 1;
11 for R1
'Bit_Order use System
.Low_Order_First
;
12 for R1
'Scalar_Storage_Order use System
.Low_Order_First
;
17 for R2
'Bit_Order use System
.High_Order_First
;
18 for R2
'Scalar_Storage_Order use System
.High_Order_First
;
20 My_R1
: constant R1
:= (I
=> 16#
12345678#
);
21 My_R2
: constant R2
:= (I
=> 16#
12345678#
);