From 6581177ec52bbd972facc92bf611dd1fa7cf5c93 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 21 Nov 2013 06:28:43 -0800
Subject: [PATCH] realloc pic->irep when exhausted

---
 src/codegen.c | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/codegen.c b/src/codegen.c
index be1148f2..4defaa34 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -284,7 +284,18 @@ codegen(codegen_state *state, pic_value obj, bool tailpos)
 	}
       }
       else if (sym == pic->sLAMBDA) {
-	int k = pic->ilen++;
+	int k;
+
+	if (pic->ilen >= pic->icapa) {
+
+#if DEBUG
+	  puts("irep realloced");
+#endif
+
+	  pic->irep = (struct pic_irep **)pic_realloc(pic, pic->irep, pic->icapa * 2);
+	  pic->icapa *= 2;
+	}
+	k = pic->ilen++;
 	irep->code[irep->clen].insn = OP_LAMBDA;
 	irep->code[irep->clen].u.i = k;
 	irep->clen++;