From 17d56478a5ba310d3753283129faa5dcdf36be51 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 21 Oct 2004 15:21:08 +0000
Subject: * string.c (rb_str_include): should not treat char as negative value.
   [ruby-dev:24558]

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@7096 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog |  5 +++++
 string.c  | 11 ++---------
 2 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0b07a00ad..d110a8f39 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Oct 22 00:20:33 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* string.c (rb_str_include): should not treat char as negative value.
+	  [ruby-dev:24558]
+
 Thu Oct 21 19:06:15 2004  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* lib/webrick/httpresponse.rb (WEBrick::HTTPResponse#send_body_io):
diff --git a/string.c b/string.c
index 9f0091721..39069c9e8 100644
--- a/string.c
+++ b/string.c
@@ -2386,15 +2386,8 @@ rb_str_include(str, arg)
     long i;
 
     if (FIXNUM_P(arg)) {
-	int c = FIX2INT(arg);
-	long len = RSTRING(str)->len;
-	char *p = RSTRING(str)->ptr;
-
-	for (i=0; i<len; i++) {
-	    if (p[i] == c) {
-		return Qtrue;
-	    }
-	}
+	if (memchr(RSTRING(str)->ptr, FIX2INT(arg), RSTRING(str)->len))
+	    return Qtrue;
 	return Qfalse;
     }
 
-- 
cgit