From a103d128cdb67dd87b5501e71e7a95876afd17ca Mon Sep 17 00:00:00 2001
From: michal <michal@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 4 Sep 2002 09:23:51 +0000
Subject: [PATCH] Opt for Array in rb_gc_mark_children() (ruby-core:410)

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2790 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 gc.c | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/gc.c b/gc.c
index e5ecea76f4..03c47fc836 100644
--- a/gc.c
+++ b/gc.c
@@ -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: