From f41aae73fde191a50e30164b744d4874d59c6255 Mon Sep 17 00:00:00 2001 From: Patrick Hogan Date: Tue, 24 Apr 2012 08:36:36 -0500 Subject: Call dfree member on RData/MRB_TT_DATA when collected Signed-off-by: Patrick Hogan --- src/gc.c | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/gc.c b/src/gc.c index 3b7a6fa7d..995678b0c 100644 --- a/src/gc.c +++ b/src/gc.c @@ -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; } -- cgit v1.2.3