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

adjust OP_CALL count

This commit is contained in:
Yuichi Nishiwaki 2014-02-06 13:18:39 +09:00
parent 613f692c09
commit 845961e7f9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/proc.c
View File

@ -89,7 +89,7 @@ pic_proc_apply(pic_state *pic)
struct pic_proc *proc; struct pic_proc *proc;
pic_value *args; pic_value *args;
size_t argc; size_t argc;
pic_value v, arg_list; pic_value v, arg_list, call_list;
pic_get_args(pic, "l*", &proc, &argc, &args); pic_get_args(pic, "l*", &proc, &argc, &args);
@ -102,14 +102,14 @@ pic_proc_apply(pic_state *pic)
arg_list = pic_cons(pic, args[argc], arg_list); arg_list = pic_cons(pic, args[argc], arg_list);
} }
arg_list = pic_cons(pic, pic_obj_value(proc), arg_list); call_list = pic_cons(pic, pic_obj_value(proc), arg_list);
pic_for_each (v, arg_list) { pic_for_each (v, call_list) {
*pic->ci->fp++ = v; *pic->ci->fp++ = v;
} }
iseq[0].insn = OP_NOP; iseq[0].insn = OP_NOP;
iseq[1].insn = OP_CALL; iseq[1].insn = OP_CALL;
iseq[1].u.i = pic_length(pic, arg_list) + 1; iseq[1].u.i = pic_length(pic, call_list);
iseq[2].insn = OP_RET; iseq[2].insn = OP_RET;
pic->ci->ip = iseq; pic->ci->ip = iseq;