class CPentryMethodref
pri cl : ClassInfo;
pri name : string;
pri descriptor : string;
pri nargs : Int;
pri nret : Int;
meth Setcl =^ ( val c: ClassInfo ·
cl:= c;
)
end
meth Getcl =^ ( res c: ClassInfo ·
c:= cl;
)
end
meth Setname =^ ( val n: String ·
name:= n;
)
end
meth Getname =^ ( res n: String ·
n:= name;
)
end
meth SetDescriptor =^ ( val d: String ·
Descriptor:= d;
)
end
meth GetDescriptor =^ ( res d: String ·
d:= Descriptor;
)
end
meth Setnargs =^ ( val n: Int ·
nargs:= n;
)
end
meth Getnargs =^ ( res n: Int ·
n:= nargs;
)
end
meth Setnret =^ ( val n: Int ·
nret:= n;
)
end
meth Getnret =^ ( res n: Int ·
n:= nret;
)
end
end