7 type Short_Int
is mod 2**16;
14 F1
at 0 range 0 .. 15;
15 F2
at 0 range 16 .. 31;
18 for Rec1
'Bit_Order use System
.High_Order_First
;
19 for Rec1
'Scalar_Storage_Order use System
.High_Order_First
;
26 I1
at 0 range 0 .. 31;
27 R1
at 4 range 0 .. 31;
29 for Rec2
'Bit_Order use System
.High_Order_First
;
30 for Rec2
'Scalar_Storage_Order use System
.High_Order_First
;
36 Data
at 0 range 0 .. 31;
38 for Rec3
'Bit_Order use System
.High_Order_First
;
39 for Rec3
'Scalar_Storage_Order use System
.High_Order_First
;
41 procedure Copy
(Message
: in Rec3
) is
44 Local
:= (I1
=> 1, R1
=> Message
.Data
);
45 if Local
.R1
/= Message
.Data
then
53 Message
:= (Data
=> (2, 3));