1with Limited_With6_Pkg; 2 3package Limited_With6 is 4 type Sup_T is new Integer; 5 procedure Doit (Obj : Limited_With6_Pkg.T); 6 7 type Rec is record 8 A : Limited_With6_Pkg.Taft_Ptr; 9 end record; 10end Limited_With6; 11
1with Limited_With6_Pkg; 2 3package Limited_With6 is 4 type Sup_T is new Integer; 5 procedure Doit (Obj : Limited_With6_Pkg.T); 6 7 type Rec is record 8 A : Limited_With6_Pkg.Taft_Ptr; 9 end record; 10end Limited_With6; 11