7 lines
149 B
Ada
7 lines
149 B
Ada
|
package body Discr49_Rec2 is
|
||
|
|
function Value (Obj : Child) return Integer is
|
||
|
|
begin
|
||
|
|
return Value (Parent (Obj));
|
||
|
|
end;
|
||
|
|
end Discr49_Rec2;
|