1 2 3 4 5 6 7 8 9 10 11 12
package Taft_Type2_Pkg is type T is private; function Open return T; private type Buffer_T; type T is access Buffer_T; end Taft_Type2_Pkg;