1 with Unchecked_Conversion;
2 with Pointer_Discr1_Pkg3;
4 package Pointer_Discr1_Pkg2 is
6 subtype T_WINDOW is Pointer_Discr1_Pkg3.T_WINDOW(Pointer_Discr1_Pkg3.One);
8 function TO_WINDOW is new Unchecked_Conversion(Integer, T_WINDOW);
10 end Pointer_Discr1_Pkg2;