Modified: MacRuby/trunk/re.c (2876 => 2877)

--- MacRuby/trunk/re.c	2009-10-21 20:47:01 UTC (rev 2876)
+++ MacRuby/trunk/re.c	2009-10-21 21:23:16 UTC (rev 2877)
@@ -845,6 +845,17 @@
     return (VALUE)match;
 }
 
+static IMP rb_objc_match_finalize_super = NULL; 
+
+static void
+rb_objc_match_finalize(void *rcv, SEL sel)
+{
+    onig_region_free(RMATCH_REGS(rcv), 0);
+    if (rb_objc_match_finalize_super != NULL) {
+	((void(*)(void *, SEL))rb_objc_match_finalize_super)(rcv, sel);
+    }
+}
+
 typedef struct {
     int byte_pos;
     int char_pos;
@@ -3745,6 +3756,9 @@
     rb_objc_define_method(*(VALUE *)rb_cMatch, "alloc", match_alloc, 0);
     rb_undef_method(CLASS_OF(rb_cMatch), "new");
 
+    rb_objc_match_finalize_super = rb_objc_install_method2((Class)rb_cMatch,
+	    "finalize", (IMP)rb_objc_match_finalize);
+
     rb_objc_define_method(rb_cMatch, "initialize_copy", match_init_copy, 1);
     rb_objc_define_method(rb_cMatch, "regexp", match_regexp, 0);
     rb_objc_define_method(rb_cMatch, "names", match_names, 0);