parent
1d1e41e122
commit
73b7d577d7
|
@ -626,10 +626,30 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value args)
|
||||||
NEXT;
|
NEXT;
|
||||||
}
|
}
|
||||||
CASE(OP_LREF) {
|
CASE(OP_LREF) {
|
||||||
|
pic_callinfo *ci = pic->ci;
|
||||||
|
struct pic_irep *irep;
|
||||||
|
|
||||||
|
if (ci->cxt != NULL && ci->cxt->regs == ci->cxt->storage) {
|
||||||
|
irep = pic_get_proc(pic)->u.i.irep;
|
||||||
|
if (c.u.i >= irep->argc + irep->localc) {
|
||||||
|
PUSH(ci->cxt->regs[c.u.i - (ci->regs - ci->fp)]);
|
||||||
|
NEXT;
|
||||||
|
}
|
||||||
|
}
|
||||||
PUSH(pic->ci->fp[c.u.i]);
|
PUSH(pic->ci->fp[c.u.i]);
|
||||||
NEXT;
|
NEXT;
|
||||||
}
|
}
|
||||||
CASE(OP_LSET) {
|
CASE(OP_LSET) {
|
||||||
|
pic_callinfo *ci = pic->ci;
|
||||||
|
struct pic_irep *irep;
|
||||||
|
|
||||||
|
if (ci->cxt != NULL && ci->cxt->regs == ci->cxt->storage) {
|
||||||
|
irep = pic_get_proc(pic)->u.i.irep;
|
||||||
|
if (c.u.i >= irep->argc + irep->localc) {
|
||||||
|
ci->cxt->regs[c.u.i - (ci->regs - ci->fp)] = POP();
|
||||||
|
NEXT;
|
||||||
|
}
|
||||||
|
}
|
||||||
pic->ci->fp[c.u.i] = POP();
|
pic->ci->fp[c.u.i] = POP();
|
||||||
PUSH(pic_undef_value());
|
PUSH(pic_undef_value());
|
||||||
NEXT;
|
NEXT;
|
||||||
|
|
Loading…
Reference in New Issue