class MethodInfo
pri fstBytecode : Bytecode;
pri Entry : CPentryMethodRef;
meth SetfstBytecode =^ ( val f: Bytecode ·
fstBytecode:= f;
)
end
meth GetfstBytecode =^ ( res f: Bytecode ·
f:= fstBytecode;
)
end
meth SetEntry =^ ( val e: CPentryMethodref ·
entry:= e;
)
end
meth GetEntry =^ ( res n: CPentryMethodref ·
e:= entry;
)
end
meth GetmtdName=^ ( res n: String ·
Entry.GetName(n);
)
end
meth GetmtdDescriptor=^ ( res d: String ·
Entry.GetDescriptor(d);
)
end
meth GetmtdNret=^ ( res n: Int ·
Entry.GetNret(n);
)
end
end