shared strings should not chain

21c1e2fd · Yukihiro Matsumoto · 00c6022c · 21c1e2fd
Commit 21c1e2fd authored May 31, 2012 by Yukihiro Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

src/string.c src/string.c +3 -0

No files found.
--- a/src/string.c
+++ b/src/string.c
@@ -1211,6 +1211,9 @@ str_subseq(mrb_state *mrb, mrb_value str, long beg, long len)

  str2 = mrb_str_new_with_class(mrb, str, 0, 0);
  orig = mrb_str_ptr(str);
+  while (orig->flags & MRB_STR_SHARED) {
+    orig = orig->aux.shared;
+  }
  s = mrb_str_ptr(str2);
  s->buf = orig->buf + beg;
  s->len = len;