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