From 569d8219292fefe205979fd8ea951619316d4f72 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 25 Aug 2010 08:56:47 +0000
Subject: * array.c (rb_ary_sample): use frozen shared array to get rid of  
 reallocation.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@29092 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 array.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'array.c')

diff --git a/array.c b/array.c
index 172a653aa2..b506b086d4 100644
--- a/array.c
+++ b/array.c
@@ -3826,6 +3826,7 @@ rb_ary_sample(int argc, VALUE *argv, VALUE ary)
     rb_scan_args(argc, argv, "1", &nv);
     n = NUM2LONG(nv);
     if (n < 0) rb_raise(rb_eArgError, "negative sample number");
+    RB_GC_GUARD(ary) = ary_make_shared(ary);
     ptr = RARRAY_PTR(ary);
     len = RARRAY_LEN(ary);
     if (n > len) n = len;
@@ -3872,7 +3873,6 @@ rb_ary_sample(int argc, VALUE *argv, VALUE ary)
 	VALUE *ptr_result;
 	result = rb_ary_new4(len, ptr);
 	ptr_result = RARRAY_PTR(result);
-	RB_GC_GUARD(ary);
 	for (i=0; i<n; i++) {
 	    j = RAND_UPTO(len-i) + i;
 	    nv = ptr_result[j];
-- 
cgit v1.2.3