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