1 package body Limited3_Pkg
is
2 function F
(I
: Integer) return Rec
is
4 return (D
=> False, I
=> I
);
7 function FS
(X
: Integer) return Var_Rec
is
9 return (X
, (1..X
=> '?'), Tag
=> <>);
12 function F2
(I
: Integer) return Rec2
is
15 return (D
=> False, I
=> I
);
17 return (D
=> True, L
=> new Limited_Rec
);