Hi,

	I hope that this could be more faster (by few calls), without
	breaking anything.

	Every little helps :-)

		Michal


Index: gc.c
===================================================================
RCS file: /src/ruby/gc.c,v
retrieving revision 1.100
diff -u -p -r1.100 gc.c
--- gc.c	2002/09/02 12:19:30	1.100
+++ gc.c	2002/09/02 16:27:50
@@ -776,15 +776,17 @@ rb_gc_mark_children(ptr)
 	break;
 
       case T_ARRAY:
-	{
+	if (FL_TEST(obj, ELTS_SHARED)) {
+	    rb_gc_mark(obj->as.array.aux.shared);
+	}
+	else {
 	    long i, len = obj->as.array.len;
 	    VALUE *ptr = obj->as.array.ptr;
 
-	    for (i=0; i < len; i++)
+	    for (i=0; i < len; i++) {
 		rb_gc_mark(*ptr++);
+	    }
 	}
-	if (FL_TEST(obj, ELTS_SHARED))
-	    rb_gc_mark(obj->as.array.aux.shared);
 	break;
 
       case T_HASH:

-- 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Michal Rokos                         Czech Technical University, Prague
E-mail:m.rokos / sh.cvut.cz      ICQ:36118339      Jabber:majkl / jabber.cz
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-