diff options
author | tmm1 <tmm1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2013-12-03 03:40:56 +0000 |
---|---|---|
committer | tmm1 <tmm1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2013-12-03 03:40:56 +0000 |
commit | 6edaf997e36f9d5b64f0e1349c987432c521f408 (patch) | |
tree | d3906a4576057671945651536b3f52054e9bb3de | |
parent | 41a73480c67bd04009e0841328b082632ceb51f7 (diff) | |
download | ruby-6edaf997e36f9d5b64f0e1349c987432c521f408.tar.gz |
* string.c (rb_fstring): Use st_update instead of st_lookup +
st_insert.
* string.c (fstr_update_callback): New callback for st_update.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@43968 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | string.c | 38 |
2 files changed, 29 insertions, 15 deletions
@@ -1,3 +1,9 @@ +Tue Dec 3 12:20:21 2013 Aman Gupta <ruby@tmm1.net> + + * string.c (rb_fstring): Use st_update instead of st_lookup + + st_insert. + * string.c (fstr_update_callback): New callback for st_update. + Tue Dec 3 12:17:59 2013 Nobuyoshi Nakada <nobu@ruby-lang.org> * lib/rdoc/constant.rb (RDoc::Constant#documented?): workaround for @@ -132,22 +132,16 @@ static const struct st_hash_type fstring_hash_type = { rb_str_hash, }; -VALUE -rb_fstring(VALUE str) +static int +fstr_update_callback(st_data_t *key, st_data_t *value, st_data_t arg, int existing) { - st_data_t fstr; - Check_Type(str, T_STRING); - - if (FL_TEST(str, RSTRING_FSTR)) - return str; - - if (st_lookup(frozen_strings, (st_data_t)str, &fstr)) { - str = (VALUE)fstr; + VALUE *fstr = (VALUE *)arg; + if (existing) { /* because of lazy sweep, str may be unmaked already and swept * at next time */ - rb_gc_resurrect(str); - } - else { + rb_gc_resurrect(*fstr = *key); + } else { + VALUE str = *key; if (STR_SHARED_P(str)) { /* str should not be shared */ str = rb_enc_str_new(RSTRING_PTR(str), RSTRING_LEN(str), STR_ENC_GET(str)); @@ -157,9 +151,23 @@ rb_fstring(VALUE str) str = rb_str_new_frozen(str); } RBASIC(str)->flags |= RSTRING_FSTR; - st_insert(frozen_strings, str, str); + *fstr = *key = str; } - return str; + + return ST_CONTINUE; +} + +VALUE +rb_fstring(VALUE str) +{ + VALUE fstr = Qnil; + Check_Type(str, T_STRING); + + if (FL_TEST(str, RSTRING_FSTR)) + return str; + + st_update(frozen_strings, (st_data_t)str, fstr_update_callback, (st_data_t)&fstr); + return fstr; } static int |