Call dfree member on RData/MRB_TT_DATA when collected

Signed-off-by: Patrick Hogan <pbhogan@gmail.com>
This commit is contained in:
Patrick Hogan
2012-04-24 08:36:36 -05:00
parent 8ab46d241c
commit f41aae73fd
+10 -2
View File
@@ -407,8 +407,8 @@ obj_free(mrb_state *mrb, struct RBasic *obj)
struct REnv *e = (struct REnv *)obj;
if (e->cioff < 0) {
mrb_free(mrb, e->stack);
e->stack = 0;
mrb_free(mrb, e->stack);
e->stack = 0;
}
}
break;
@@ -432,6 +432,14 @@ obj_free(mrb_state *mrb, struct RBasic *obj)
case MRB_TT_STRUCT:
case MRB_TT_EXCEPTION:
break;
case MRB_TT_DATA:
{
struct RData *d = (struct RData *)obj;
if (d->type->dfree) {
d->type->dfree(mrb, d->data);
}
}
break;
}
obj->tt = MRB_TT_FREE;
}