1 package Sync_Iface_Call_Pkg
is
3 type IFace
is synchronized interface
;
7 Value
: in Integer) is null;
9 procedure Do_Stuff_Access
11 Value
: not null access Integer) is null;
14 (This
: not null access IFace
;
15 Value
: in Integer) is null;
17 procedure Do_Stuff_2_Access
18 (This
: not null access IFace
;
19 Value
: not null access Integer) is null;
21 end Sync_Iface_Call_Pkg
;