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

current codegen not supporting env chain short cut

This commit is contained in:
Yuichi Nishiwaki 2014-01-27 22:24:12 +09:00
parent 055272f0d5
commit d471dba322
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/vm.c
View File

@ -616,18 +616,13 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
} }
/* prepare env */ /* prepare env */
if (proc->u.irep->cv_num == 0) { ci->env = (struct pic_env *)pic_obj_alloc(pic, sizeof(struct pic_env), PIC_TT_ENV);
ci->env = proc->env; ci->env->up = proc->env;
} ci->env->valuec = proc->u.irep->cv_num;
else { ci->env->values = (pic_value *)pic_calloc(pic, ci->env->valuec, sizeof(pic_value));
ci->env = (struct pic_env *)pic_obj_alloc(pic, sizeof(struct pic_env), PIC_TT_ENV); for (i = 0; i < ci->env->valuec; ++i) {
ci->env->up = proc->env; ci->env->values[i] = ci->fp[proc->u.irep->cv_tbl[i]];
ci->env->valuec = proc->u.irep->cv_num; }
ci->env->values = (pic_value *)pic_calloc(pic, ci->env->valuec, sizeof(pic_value));
for (i = 0; i < ci->env->valuec; ++i) {
ci->env->values[i] = ci->fp[proc->u.irep->cv_tbl[i]];
}
}
pc = proc->u.irep->code; pc = proc->u.irep->code;
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);