Re: newbie - OOP in Ada Set and Get Methods

["R" <ruthless@poczta.onet.pl>]

my compiler gnatmake Linux
gave me warnings in this function:

function Set(this: rec1; s: Integer) return Integer is
begin
this.field := s;
return s;
end Set;

'in parameters cannot be modified inside function'(sth like this),
when I was using rec1_Typeas an access to rec1
this warning never occured

but finally i changed it to:
procedure Set(this: in out rec1; s: Integer) is
begin
this.field := s;
end Set;
and now it works fine - no warning

best regards R