blob: 9a0fe7ac514327e1a659a14a1ea9a16bd1fd6255 [file] [log] [blame]
package body Discr49_Rec2 is
function Value (Obj : Child) return Integer is
begin
return Value (Parent (Obj));
end;
end Discr49_Rec2;