1 limited with Limited_With4_Pkg
;
3 package Limited_With4
is
5 type Ptr1
is access procedure (A
: Limited_With4_Pkg
.Rec12
; I
: Integer);
7 type Ptr2
is access procedure (A
: Limited_With4_Pkg
.Rec22
; I
: Integer);
13 procedure Proc1
(A
: Limited_With4_Pkg
.Rec12
; I
: Integer);
15 function Func1
(I
: Integer) return Limited_With4_Pkg
.Rec12
;
17 procedure Proc2
(A
: Limited_With4_Pkg
.Rec22
; I
: Integer);
19 function Func2
(I
: Integer) return Limited_With4_Pkg
.Rec22
;
25 procedure Proc3
(A
: Limited_With4_Pkg
.Rec12
; B
: Limited_With4_Pkg
.Rec22
);
27 function Func3
(A
: Limited_With4_Pkg
.Rec12
) return Limited_With4_Pkg
.Rec22
;