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

fix for-each compilation bug

This commit is contained in:
Yuichi Nishiwaki 2013-11-16 23:32:34 +09:00
parent d9749ef854
commit 1ef3ed91a2
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/codegen.c
View File

@ -172,7 +172,7 @@ scope_local_define(pic_state *pic, const char *name, codegen_scope *scope)
struct xh_entry *e; struct xh_entry *e;
e = xh_put(scope->local_tbl, name, scope->argc + scope->localc++); e = xh_put(scope->local_tbl, name, scope->argc + scope->localc++);
scope->dirty_flags = (int *)pic_realloc(pic, scope->dirty_flags, (e->val) * sizeof(int)); scope->dirty_flags = (int *)pic_realloc(pic, scope->dirty_flags, (e->val + 1) * sizeof(int));
return e->val; return e->val;
} }
@ -839,6 +839,7 @@ codegen_lambda(codegen_state *state, pic_value obj)
state->scope = prev_scope; state->scope = prev_scope;
#if VM_DEBUG #if VM_DEBUG
printf("* generated lambda:\n");
print_irep(pic, irep); print_irep(pic, irep);
puts(""); puts("");
#endif #endif