5 package Four_Bits is new Pack13_Pkg (4);
6 package Thirty_Two_Bits is new Pack13_Pkg (32);
8 type Object is private;
9 type Object_Ptr is access all Object;
11 procedure Set (Myself : Object_Ptr; The_Data : Thirty_Two_Bits.Object);
15 type Some_Record is record
16 Data_1 : Thirty_Two_Bits.Object;
17 Data_2 : Thirty_Two_Bits.Object;
18 Small_Data : Four_Bits.Object;
20 for Some_Record use record
21 Data_1 at 0 range 0 .. 31;
22 Data_2 at 4 range 0 .. 31;
23 Small_Data at 8 range 0 .. 3;
27 Something : Some_Record;
30 Something at 0 range 0 .. 67;