* 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: svn+ssh://ci.ruby-lang.org/ruby/trunk@20521 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,8 @@
+Fri Dec  5 00:17:18 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* string.c (sym_to_proc): caches Symbol procs, based on a patch from
+	  Shumpei Akai <admin AT flexfrank.net>.  [ruby-dev:37265]
+
 Thu Dec  4 23:29:34 2008  NAKAMURA Usaku  <usa@ruby-lang.org>
 
 	* win32/win32.c (waitpid): fix bug of checking child slot.

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)