don't emit debug message into stderr

This commit is contained in:
Yuichi Nishiwaki 2014-02-20 17:58:00 +09:00
parent 85a766a242
commit acc3afc120
1 changed files with 15 additions and 15 deletions

View File

@ -1367,51 +1367,51 @@ compile(pic_state *pic, pic_value obj)
int ai = pic_gc_arena_preserve(pic);
#if DEBUG
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
fprintf(stdout, "ai = %d\n", pic_gc_arena_preserve(pic));
fprintf(stderr, "# input expression\n");
fprintf(stdout, "# input expression\n");
pic_debug(pic, obj);
fprintf(stderr, "\n");
fprintf(stdout, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
fprintf(stdout, "ai = %d\n", pic_gc_arena_preserve(pic));
#endif
/* macroexpand */
obj = pic_macroexpand(pic, obj);
#if DEBUG
fprintf(stderr, "## macroexpand completed\n");
fprintf(stdout, "## macroexpand completed\n");
pic_debug(pic, obj);
fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
fprintf(stdout, "\n");
fprintf(stdout, "ai = %d\n", pic_gc_arena_preserve(pic));
#endif
/* analyze */
obj = pic_analyze(pic, obj);
#if DEBUG
fprintf(stderr, "## analyzer completed\n");
fprintf(stdout, "## analyzer completed\n");
pic_debug(pic, obj);
fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
fprintf(stdout, "\n");
fprintf(stdout, "ai = %d\n", pic_gc_arena_preserve(pic));
#endif
/* resolution */
obj = pic_resolve(pic, obj);
#if DEBUG
fprintf(stderr, "## resolver completed\n");
fprintf(stdout, "## resolver completed\n");
pic_debug(pic, obj);
fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
fprintf(stdout, "\n");
fprintf(stdout, "ai = %d\n", pic_gc_arena_preserve(pic));
#endif
/* codegen */
irep = pic_codegen(pic, obj);
#if DEBUG
fprintf(stderr, "## codegen completed\n");
fprintf(stdout, "## codegen completed\n");
pic_dump_irep(pic, irep);
#endif
#if DEBUG
fprintf(stderr, "# compilation finished\n");
fprintf(stdout, "# compilation finished\n");
puts("");
#endif