From ac054644a44c41360ba2fa140762d6e637430f22 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 4 Dec 2008 15:17:21 +0000
Subject: * string.c (sym_to_proc): caches Symbol procs, based on a patch from 
  Shumpei Akai <admin AT flexfrank.net>.  [ruby-dev:37265]

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@20521 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 string.c | 27 +++++++++++++++++++++++++--
 1 file changed, 25 insertions(+), 2 deletions(-)

(limited to 'string.c')

diff --git a/string.c b/string.c
index d931cd9ca..641018ab4 100644
--- a/string.c
+++ b/string.c
@@ -6915,9 +6915,32 @@ sym_call(VALUE args, VALUE sym, int argc, VALUE *argv)
 static VALUE
 sym_to_proc(VALUE sym)
 {
-    return rb_proc_new(sym_call, (VALUE)SYM2ID(sym));
-}
+    static VALUE sym_proc_cache = Qfalse;
+    enum {SYM_PROC_CACHE_SIZE = 67};
+    VALUE proc;
+    long id, index;
+    VALUE *aryp;
+
+    if (!sym_proc_cache) {
+        rb_gc_register_mark_object(sym_proc_cache);
+        sym_proc_cache = rb_ary_new2(SYM_PROC_CACHE_SIZE * 2);
+        rb_ary_store(sym_proc_cache, SYM_PROC_CACHE_SIZE*2 - 1, Qnil);
+    }
+
+    id = SYM2ID(sym);
+    index = (id % SYM_PROC_CACHE_SIZE) << 1;
 
+    aryp = RARRAY_PTR(sym_proc_cache);
+    if (aryp[index] == sym) {
+        return aryp[index + 1];
+    }
+    else {
+        proc = rb_proc_new(sym_call, (VALUE)id);
+        aryp[index] = sym;
+        aryp[index + 1] = proc;
+        return proc;
+    }
+}
 
 static VALUE
 sym_succ(VALUE sym)
-- 
cgit