blob: c95c3ef2b07016ef41edd28875a84b711ef10fbc [file] [log] [blame]
package body Self is
function G (X : Integer) return Lim is
begin
return R : Lim := (Comp => X, others => <>);
end G;
procedure Change (X : in out Lim; Incr : Integer) is
begin
X.Comp := X.Comp + Incr;
X.Self_Default.Comp := X.Comp + Incr;
X.Self_Anon_Default.Comp := X.Comp + Incr;
end Change;
function Get (X : Lim) return Integer is
begin
return X.Comp;
end;
end Self;