blob: 8a647d507c927d3355c45b3e70d0f26637beb3ed [file] [log] [blame]
package body Opt23_Pkg is
function Get (R : Rec; I : Positive; M : Natural) return Path is
begin
return R.Val (I) (M);
end;
end Opt23_Pkg;