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

do not create pic_env object when not needed

This commit is contained in:
Yuichi Nishiwaki 2013-11-04 20:27:44 -05:00
parent 86458359e3
commit fb66791216
2 changed files with 56 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
src/codegen.c
View File

@ -571,6 +571,29 @@ valid_formal(pic_state *pic, pic_value formal)
return false; return false;
} }
static void
lift_cv(pic_state *pic, struct pic_irep *irep)
{
int i;
struct pic_code c;
for (i = 0; i < irep->clen; ++i) {
c = irep->code[i];
switch (c.insn) {
default:
/* pass */
break;
case OP_LAMBDA:
lift_cv(pic, pic->irep[c.u.i]);
break;
case OP_CREF:
case OP_CSET:
irep->code[i].u.c.depth--;
break;
}
}
}
static void static void
slide_cv(pic_state *pic, unsigned *cv_tbl, unsigned cv_num, struct pic_irep *irep, int d) slide_cv(pic_state *pic, unsigned *cv_tbl, unsigned cv_num, struct pic_irep *irep, int d)
{ {
@ -584,7 +607,12 @@ slide_cv(pic_state *pic, unsigned *cv_tbl, unsigned cv_num, struct pic_irep *ire
/* pass */ /* pass */
break; break;
case OP_LAMBDA: case OP_LAMBDA:
slide_cv(pic, cv_tbl, cv_num, pic->irep[c.u.i], d + 1); if (pic->irep[c.u.i]->cv_num == 0) {
slide_cv(pic, cv_tbl, cv_num, pic->irep[c.u.i], d);
}
else {
slide_cv(pic, cv_tbl, cv_num, pic->irep[c.u.i], d + 1);
}
break; break;
case OP_CREF: case OP_CREF:
case OP_CSET: case OP_CSET:
@ -672,16 +700,23 @@ codegen_lambda(codegen_state *state, pic_value obj)
if (state->scope->dirty_flags[i]) if (state->scope->dirty_flags[i])
++c; ++c;
} }
irep->cv_tbl = (unsigned *)pic_calloc(pic, c, sizeof(unsigned)); if (c == 0) {
k = 0; lift_cv(pic, irep);
for (i = 0; i < irep->argc + irep->localc; ++i) { irep->cv_tbl = NULL;
if (state->scope->dirty_flags[i]) { irep->cv_num = 0;
irep->cv_tbl[k] = i; }
++k; else {
} irep->cv_tbl = (unsigned *)pic_calloc(pic, c, sizeof(unsigned));
k = 0;
for (i = 0; i < irep->argc + irep->localc; ++i) {
if (state->scope->dirty_flags[i]) {
irep->cv_tbl[k] = i;
++k;
}
}
irep->cv_num = c;
slide_cv(pic, irep->cv_tbl, irep->cv_num, irep, 0);
} }
irep->cv_num = c;
slide_cv(pic, irep->cv_tbl, irep->cv_num, irep, 0);
} }
destroy_scope(pic, state->scope); destroy_scope(pic, state->scope);

17
src/vm.c
View File

@ -368,12 +368,17 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
} }
/* prepare env */ /* prepare env */
ci->env = (struct pic_env *)pic_obj_alloc(pic, sizeof(struct pic_env), PIC_TT_ENV); if (proc->u.irep->cv_num == 0) {
ci->env->up = proc->env; ci->env = proc->env;
ci->env->valuec = proc->u.irep->cv_num; }
ci->env->values = (pic_value *)pic_calloc(pic, ci->env->valuec, sizeof(pic_value)); else {
for (i = 0; i < ci->env->valuec; ++i) { ci->env = (struct pic_env *)pic_obj_alloc(pic, sizeof(struct pic_env), PIC_TT_ENV);
ci->env->values[i] = ci->fp[proc->u.irep->cv_tbl[i]]; ci->env->up = proc->env;
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;