From d93746490d15deb4bdf35a47348106a41338002c Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 29 Jul 2011 14:53:51 +0000
Subject: * array.c (rb_ary_set_len): new function to set array length. *
 vm_eval.c (method_missing): set the length of argv array, to mark  
 arguments.

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

(limited to 'array.c')

diff --git a/array.c b/array.c
index 09c9883b13..8caad66a3e 100644
--- a/array.c
+++ b/array.c
@@ -1310,6 +1310,21 @@ rb_ary_splice(VALUE ary, long beg, long len, VALUE rpl)
     }
 }
 
+void
+rb_ary_set_len(VALUE ary, long len)
+{
+    long capa;
+
+    rb_ary_modify_check(ary);
+    if (ARY_SHARED_P(ary)) {
+	rb_raise(rb_eRuntimeError, "can't set length of shared ");
+    }
+    if (len > (capa = (long)ARY_CAPA(ary))) {
+	rb_bug("probable buffer overflow: %ld for %ld", len, capa);
+    }
+    ARY_SET_LEN(ary, len);
+}
+
 /*!
  * expands or shrinks \a ary to \a len elements.
  * expanded region will be filled with Qnil.
-- 
cgit v1.2.3