1 2 3 4 5 6 7 8 9
with Pointer_Discr1_Pkg2; package Pointer_Discr1_Pkg1 is type Arr is array (1..4) of Pointer_Discr1_Pkg2.T_WINDOW; Window : Arr; end Pointer_Discr1_Pkg1;