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

fix #140

This commit is contained in:
Yuichi Nishiwaki 2014-06-23 00:52:36 +09:00
parent e3c60b56e6
commit 711b53eb72
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/vm.c
View File

@ -747,7 +747,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
/* invoke! */ /* invoke! */
pic->sp[0] = proc->u.func.f(pic); pic->sp[0] = proc->u.func.f(pic);
pic->sp += ci->retc; pic->sp += pic->ci->retc;
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
goto L_RET; goto L_RET;
@ -1002,21 +1002,23 @@ static pic_code trampoline_iseq[] = {
pic_value pic_value
pic_apply_trampoline(pic_state *pic, struct pic_proc *proc, pic_value args) pic_apply_trampoline(pic_state *pic, struct pic_proc *proc, pic_value args)
{ {
pic_value v, call_list, *fp = pic->ci->fp; pic_value v, *sp;
pic_callinfo *ci; pic_callinfo *ci;
call_list = pic_cons(pic, pic_obj_value(proc), args); *pic->sp++ = pic_obj_value(proc);
pic_for_each (v, call_list) { sp = pic->sp;
*fp++ = v; pic_for_each (v, args) {
*sp++ = v;
} }
trampoline_iseq[1].u.i = pic_length(pic, call_list); trampoline_iseq[1].u.i = -1;
ci = PUSHCI(); ci = PUSHCI();
ci->ip = trampoline_iseq; ci->ip = trampoline_iseq;
ci->fp = fp - 1; /* the last argument is pushed by the VM */ ci->fp = pic->sp;
return v; ci->retc = pic_length(pic, args);
return pic_obj_value(proc);
} }
pic_value pic_value