Revision

404

Author

lsansonetti@apple.com

Date

2008-08-03 14:08:32 -0700 (Sun, 03 Aug 2008)

Log Message

re-define alloc on primitive subclasses

Modified Paths

• MacRuby/branches/lrz_unstable/array.c
• MacRuby/branches/lrz_unstable/hash.c
• MacRuby/branches/lrz_unstable/string.c

Diff

--- MacRuby/branches/lrz_unstable/array.c	2008-08-03 19:10:34 UTC (rev 403)
+++ MacRuby/branches/lrz_unstable/array.c	2008-08-03 21:08:32 UTC (rev 404)
@@ -4111,6 +4111,8 @@
 	class_addMethod(klass, sel_registerName("_cfindexOfObject:inRange:"), 
 	    method_getImplementation(m), method_getTypeEncoding(m));
     }
+    
+    rb_define_alloc_func((VALUE)klass, ary_alloc);
 
 #undef INSTALL_METHOD
 }

--- MacRuby/branches/lrz_unstable/hash.c	2008-08-03 19:10:34 UTC (rev 403)
+++ MacRuby/branches/lrz_unstable/hash.c	2008-08-03 21:08:32 UTC (rev 404)
@@ -3007,6 +3007,8 @@
     INSTALL_METHOD("isEqual:", imp_rb_hash_isEqual);
     INSTALL_METHOD("containsObject:", imp_rb_hash_containsObject);
 
+    rb_define_alloc_func((VALUE)klass, hash_alloc);
+
 #undef INSTALL_METHOD
 }
 #endif

--- MacRuby/branches/lrz_unstable/string.c	2008-08-03 19:10:34 UTC (rev 403)
+++ MacRuby/branches/lrz_unstable/string.c	2008-08-03 21:08:32 UTC (rev 404)
@@ -8508,6 +8508,8 @@
     INSTALL_METHOD("_fastestEncodingInCFStringEncoding",
 	imp_rb_str_fastestEncodingInCFStringEncoding);
     INSTALL_METHOD("isEqual:", imp_rb_str_isEqual);
+    
+    rb_define_alloc_func((VALUE)klass, str_alloc);
 }
 
 static CFIndex