From 217595c325a72f250a36a7c5c57b59941aa48118 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby-lang.org>
Date: Wed, 20 Nov 2013 07:38:53 +0900
Subject: need to free pooled string bodies as well

---
 src/state.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/state.c b/src/state.c
index c8f3c48f8..52a1541cb 100644
--- a/src/state.c
+++ b/src/state.c
@@ -130,8 +130,10 @@ mrb_irep_free(mrb_state *mrb, mrb_irep *irep)
   if (!(irep->flags & MRB_ISEQ_NO_FREE))
     mrb_free(mrb, irep->iseq);
   for (i=0; i<irep->plen; i++) {
-    if (mrb_type(irep->pool[i]) == MRB_TT_STRING)
+    if (mrb_type(irep->pool[i]) == MRB_TT_STRING) {
+      mrb_free(mrb, mrb_str_ptr(irep->pool[i])->ptr);
       mrb_free(mrb, mrb_obj_ptr(irep->pool[i]));
+    }
   }
   mrb_free(mrb, irep->pool);
   mrb_free(mrb, irep->syms);
-- 
cgit v1.2.3