From: maeda shugo <shugo@...>
Date: 1997-06-14T01:05:46+09:00
Subject: [ruby-list:3121] Re: [Bug?] Array#sort

前田です。

On Sat, 14 Jun 97 00:45:31 JST,
maeda shugo <shugo@po.aianet.ne.jp> san wrote:

|--- array.c.orig	Sat Jun 14 00:26:43 1997
|+++ array.c	Sat Jun 14 00:27:05 1997
|@@ -711,8 +711,8 @@
|     if (FIXNUM_P(a)) {
| 	if (FIXNUM_P(b)) return a - b;
|     }
|-    else if (TYPE(a) == T_STRING) {
|-	if (TYPE(b) == T_STRING) return str_cmp(a, b);
|+    else if (TYPE(*a) == T_STRING) {
|+	if (TYPE(*b) == T_STRING) return str_cmp(*a, *b);
|     }
| 
|     retval = rb_funcall(*a, cmp, 1, *b);

すいません、FIXNUMの方もですね。

-- 
前田 修吾

--- array.c.orig	Sat Jun 14 00:26:43 1997
+++ array.c	Sat Jun 14 01:01:16 1997
@@ -708,11 +708,11 @@
 {
     VALUE retval;
 
-    if (FIXNUM_P(a)) {
-	if (FIXNUM_P(b)) return a - b;
+    if (FIXNUM_P(*a)) {
+	if (FIXNUM_P(*b)) return *a - *b;
     }
-    else if (TYPE(a) == T_STRING) {
-	if (TYPE(b) == T_STRING) return str_cmp(a, b);
+    else if (TYPE(*a) == T_STRING) {
+	if (TYPE(*b) == T_STRING) return str_cmp(*a, *b);
     }
 
     retval = rb_funcall(*a, cmp, 1, *b);