From 1ef3ed91a2dd8e60381315b733c722eae5181718 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 16 Nov 2013 23:32:34 +0900 Subject: [PATCH] fix for-each compilation bug --- src/codegen.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/codegen.c b/src/codegen.c index 998ad909..58302aaf 100644 --- a/src/codegen.c +++ b/src/codegen.c @@ -172,7 +172,7 @@ scope_local_define(pic_state *pic, const char *name, codegen_scope *scope) struct xh_entry *e; 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; } @@ -839,6 +839,7 @@ codegen_lambda(codegen_state *state, pic_value obj) state->scope = prev_scope; #if VM_DEBUG + printf("* generated lambda:\n"); print_irep(pic, irep); puts(""); #endif