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

hide debug prints

This commit is contained in:
Yuichi Nishiwaki 2014-01-30 13:50:47 +09:00
parent f32e542392
commit 75037adfaa
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/codegen.c
View File

@ -1364,6 +1364,7 @@ pic_compile(pic_state *pic, pic_value obj)
goto exit; goto exit;
} }
#if DEBUG
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic)); fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
fprintf(stderr, "## input expression\n"); fprintf(stderr, "## input expression\n");
@ -1371,38 +1372,44 @@ pic_compile(pic_state *pic, pic_value obj)
fprintf(stderr, "\n"); fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic)); fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
#endif
/* macroexpand */ /* macroexpand */
fprintf(stderr, "## macroexpand started\n");
obj = pic_macroexpand(pic, obj); obj = pic_macroexpand(pic, obj);
#if DEBUG
fprintf(stderr, "## macroexpand completed\n");
pic_debug(pic, obj); pic_debug(pic, obj);
fprintf(stderr, "\n"); fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic)); fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
#endif
/* analyze */ /* analyze */
fprintf(stderr, "## analyzer started\n");
obj = pic_analyze(pic, obj); obj = pic_analyze(pic, obj);
#if DEBUG
fprintf(stderr, "## analyzer completed\n");
pic_debug(pic, obj); pic_debug(pic, obj);
fprintf(stderr, "\n"); fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic)); fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
#endif
/* resolution */ /* resolution */
fprintf(stderr, "## resolver started\n");
obj = pic_resolve(pic, obj); obj = pic_resolve(pic, obj);
#if DEBUG
fprintf(stderr, "## resolver completed\n");
pic_debug(pic, obj); pic_debug(pic, obj);
fprintf(stderr, "\n"); fprintf(stderr, "\n");
fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic)); fprintf(stderr, "ai = %d\n", pic_gc_arena_preserve(pic));
#endif
/* codegen */ /* codegen */
fprintf(stderr, "## codegen started\n");
irep = pic_codegen(pic, obj); irep = pic_codegen(pic, obj);
#if DEBUG
fprintf(stderr, "## codegen completed\n");
pic_dump_irep(pic, irep); pic_dump_irep(pic, irep);
fprintf(stderr, "## compilation finished\n"); fprintf(stderr, "## compilation finished\n");
puts(""); puts("");
#endif
proc = pic_proc_new_irep(pic, irep, NULL); proc = pic_proc_new_irep(pic, irep, NULL);