need to free pooled string bodies as well

This commit is contained in:
Yukihiro "Matz" Matsumoto
2013-11-20 07:38:53 +09:00
parent 16e1fbc1e8
commit 217595c325
+3 -1
View File
@@ -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);