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