parent
1d1e41e122
commit
73b7d577d7
|
@ -626,10 +626,30 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value args)
|
|||
NEXT;
|
||||
}
|
||||
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]);
|
||||
NEXT;
|
||||
}
|
||||
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();
|
||||
PUSH(pic_undef_value());
|
||||
NEXT;
|
||||
|
|
Loading…
Reference in New Issue