improve debug prints

This commit is contained in:
Yuichi Nishiwaki 2014-01-27 22:18:49 +09:00
parent 30fcd6468f
commit 2f8b016d86
1 changed files with 10 additions and 0 deletions

View File

@ -1359,28 +1359,38 @@ pic_compile(pic_state *pic, pic_value obj)
goto exit;
}
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
fprintf(stderr, "## input expression\n");
pic_debug(pic, obj);
fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
/* macroexpand */
fprintf(stderr, "## macroexpand started\n");
obj = pic_macroexpand(pic, obj);
pic_debug(pic, obj);
fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
/* analyze */
fprintf(stderr, "## analyzer started\n");
obj = pic_analyze(pic, obj);
pic_debug(pic, obj);
fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
/* resolution */
fprintf(stderr, "## resolver started\n");
obj = pic_resolve(pic, obj);
pic_debug(pic, obj);
fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
/* codegen */
fprintf(stderr, "## codegen started\n");
irep = pic_codegen(pic, obj);