Hi,

	because no reply was posted, I hope it's OK to commit.

	Commited.

		Michal
		
On Tue, Sep 03, 2002 at 05:53:17PM +0900, Michal Rokos wrote:
> 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
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-