1package Opt10_Pkg is
2
3   type Rep_Message is record
4      Bit : Boolean;
5      Data : String (1 .. 4);
6   end record;
7   for Rep_Message use record
8      Bit  at 0 range 0 .. 0;
9      Data at 0 range 1 .. 32;
10   end record;
11
12   procedure Safe_Assign (M : in out Rep_Message; Bit : Boolean);
13
14end;
15