2000-02-17

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@618 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 11 insertions, 0 deletions

diff --git a/string.c b/string.c
index df483a2e1..e48a1ec53 100644
--- a/string.c
+++ b/string.c
@@ -341,6 +341,13 @@ rb_str_modify(str)
 }
 
 VALUE
+rb_str_freeze(str)
+    VALUE str;
+{
+    return rb_obj_freeze(str);
+}
+
+VALUE
 rb_str_dup_frozen(str)
     VALUE str;
 {
@@ -561,6 +568,10 @@ rb_str_index_m(argc, argv, str)
     else {
 	pos = 0;
     }
+    if (pos < 0) {
+	pos += RSTRING(str)->len;
+	if (pos < 0) return Qnil;
+    }
 
     switch (TYPE(sub)) {
       case T_REGEXP: