conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ci->retc is set to 1 by default

This commit is contained in:
Yuichi Nishiwaki 2014-02-20 17:19:28 +09:00
parent c9331fb59e
commit bad8daa813
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/vm.c
View File

@ -565,7 +565,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
ci = PUSHCI();
ci->argc = c.u.i;
ci->retc = -1;
ci->retc = 1;
ci->ip = pic->ip;
ci->fp = pic->sp - c.u.i;
ci->env = NULL;
@ -573,9 +573,8 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
/* invoke! */
v = proc->u.cfunc(pic);
if (ci->retc == -1) {
if (ci->retc == 1 && pic->sp == ci->fp + c.u.i) {
PUSH(v);
ci->retc = 1;
}
pic_gc_arena_restore(pic, ai);