From 2f8b016d86e65b4c452eb818c4b490c19e5272e0 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Mon, 27 Jan 2014 22:18:49 +0900
Subject: [PATCH] improve debug prints

---
 src/codegen.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/codegen.c b/src/codegen.c
index 212465fc..ce92b196 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -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);