1limited with Limited_With6; 2 3package Limited_With6_Pkg is 4 type T is limited private; 5 function Get_Expression_Support (Obj : T) return Limited_With6.Sup_T with Inline; 6 7 type Taft_Ptr is private; 8 9private 10 type T is new Integer; 11 12 type TT; 13 type Taft_Ptr is access TT; 14end Limited_With6_Pkg; 15