From: Tadayoshi Funaba <tadf@...>
Date: 1998-03-25T22:10:46+09:00
Subject: [ruby-dev:1932] Re: experimantal release 1.1b9_04

ふなばです。

reverse! がよくないみたいです。これでうまくゆきました。


--- string.c.orig	Wed Mar 11 16:34:50 1998
+++ string.c	Wed Mar 25 21:20:13 1998
@@ -1268,16 +1268,16 @@
 str_reverse_bang(str)
     VALUE str;
 {
-    UCHAR *s, *e, *p;
+    UCHAR *s, *e, *p, *q;
 
     s = RSTRING(str)->ptr;
     e = s + RSTRING(str)->len - 1;
-    p = ALLOCA_N(char, RSTRING(str)->len);
+    p = q = ALLOCA_N(char, RSTRING(str)->len);
 
     while (e >= s) {
 	*p++ = *e--;
     }
-    MEMCPY(RSTRING(str)->ptr, p, char, RSTRING(str)->len);
+    MEMCPY(RSTRING(str)->ptr, q, char, RSTRING(str)->len);
 
     return str;
 }


--Tadayoshi Funaba