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

free nested environment in codegen

This commit is contained in:
Yuichi Nishiwaki 2013-10-17 14:29:37 +09:00
parent 4e83ad4843
commit 0ccff2f626
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/vm.c
View File

@ -85,7 +85,7 @@ env_new(pic_state *pic, pic_value args, struct pic_env *env)
struct pic_pair *cell; struct pic_pair *cell;
int i; int i;
inner_env = (struct pic_env *)malloc(sizeof(struct pic_env)); inner_env = (struct pic_env *)pic_alloc(pic, sizeof(struct pic_env));
inner_env->assoc = pic_nil_value(); inner_env->assoc = pic_nil_value();
inner_env->parent = env; inner_env->parent = env;
@ -420,6 +420,7 @@ pic_gen_lambda(pic_state *pic, pic_value obj, struct pic_env *env)
} }
irep->code[irep->clen].insn = OP_RET; irep->code[irep->clen].insn = OP_RET;
irep->clen++; irep->clen++;
pic_free(pic, inner_env);
#if VM_DEBUG #if VM_DEBUG
printf("LAMBDA_%d:\n", pic->ilen); printf("LAMBDA_%d:\n", pic->ilen);