diff options
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | include/ruby/intern.h | 1 | ||||
-rw-r--r-- | variable.c | 12 |
3 files changed, 18 insertions, 0 deletions
@@ -1,3 +1,8 @@ +Mon Dec 9 12:25:32 2013 Nobuyoshi Nakada <nobu@ruby-lang.org> + + * variable.c (rb_class_path_cached): returns cached class path + only, without searching and allocating new class path string. + Mon Dec 9 11:14:26 2013 Nobuyoshi Nakada <nobu@ruby-lang.org> * ext/date/date_parse.c (parse_time): unset case-insensitive flag diff --git a/include/ruby/intern.h b/include/ruby/intern.h index e6829c2be2..6200e77a63 100644 --- a/include/ruby/intern.h +++ b/include/ruby/intern.h @@ -888,6 +888,7 @@ struct timespec rb_time_timespec(VALUE time); /* variable.c */ VALUE rb_mod_name(VALUE); VALUE rb_class_path(VALUE); +VALUE rb_class_path_cached(VALUE); void rb_set_class_path(VALUE, VALUE, const char*); void rb_set_class_path_string(VALUE, VALUE, VALUE); VALUE rb_path_to_class(VALUE); diff --git a/variable.c b/variable.c index ded150e30c..5d200bb992 100644 --- a/variable.c +++ b/variable.c @@ -277,6 +277,18 @@ rb_class_path_no_cache(VALUE klass) return path; } +VALUE +rb_class_path_cached(VALUE klass) +{ + st_table *ivtbl = RCLASS_IV_TBL(klass); + st_data_t n; + + if (!ivtbl) return Qnil; + if (st_lookup(ivtbl, (st_data_t)classpath, &n)) return (VALUE)n; + if (st_lookup(ivtbl, (st_data_t)tmp_classpath, &n)) return (VALUE)n; + return Qnil; +} + void rb_set_class_path_string(VALUE klass, VALUE under, VALUE name) { |