3 procedure Unaligned_Rep_Clause is
9 Pragma Pack(One_Bit_Record);
11 subtype Version_Number_Type is String (1 .. 3);
15 Version : Version_Number_Type;
20 Status : One_Bit_Record;
26 Status at 0 range 0 .. 0;
27 Version at 0 range 1 .. 24;
29 for Msg_Type'Size use 25;
32 Pragma Warnings (Off, Data);
36 Version := Data.Version;