[bugfix] sometimes OP_CSET doesn't push undef

This commit is contained in:
Yuichi Nishiwaki 2015-07-04 18:01:48 +09:00
parent 25f80dc87d
commit 5e55668b92
1 changed files with 1 additions and 0 deletions

View File

@ -647,6 +647,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value args)
irep = pic_get_proc(pic)->u.i.irep; irep = pic_get_proc(pic)->u.i.irep;
if (c.u.i >= irep->argc + irep->localc) { if (c.u.i >= irep->argc + irep->localc) {
ci->cxt->regs[c.u.i - (ci->regs - ci->fp)] = POP(); ci->cxt->regs[c.u.i - (ci->regs - ci->fp)] = POP();
PUSH(pic_undef_value());
NEXT; NEXT;
} }
} }