1.1b8pre1

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@76 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 11 insertions, 2 deletions

diff --git a/gc.c b/gc.c
index 9eab3b6c18..36cb6d1d5d 100644
--- a/gc.c
+++ b/gc.c
@@ -663,8 +663,17 @@ obj_free(obj)
 	free(RANY(obj)->as.regexp.str);
 	break;
       case T_DATA:
-	if (RANY(obj)->as.data.dfree && DATA_PTR(obj))
-	    (*RANY(obj)->as.data.dfree)(DATA_PTR(obj));
+	if (DATA_PTR(obj)) {
+	    if (RANY(obj)->as.data.dfree == (void*)-1) {
+		free(DATA_PTR(obj));
+	    }
+	    if (RANY(obj)->as.data.dfree) {
+		(*RANY(obj)->as.data.dfree)(DATA_PTR(obj));
+	    }
+	    else {
+		free(DATA_PTR(obj));
+	    }
+	}
 	break;
       case T_MATCH:
 	re_free_registers(RANY(obj)->as.match.regs);