* numeric.c (flo_eq, flo_gt, flo_ge, flo_lt, flo_le, flo_eql): revert

	  isnan() checks for VC++6.

	* insns.def (opt_lt, opt_gt): ditto.



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@22654 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 36 insertions, 1 deletions

diff --git a/numeric.c b/numeric.c
index f987610362..2d6691de61 100644
--- a/numeric.c
+++ b/numeric.c
@@ -874,11 +874,17 @@ flo_eq(VALUE x, VALUE y)
 	break;
       case T_FLOAT:
 	b = RFLOAT_VALUE(y);
+#if defined(_MSC_VER) && _MSC_VER < 1300
+	if (isnan(b)) return Qfalse;
+#endif
 	break;
       default:
 	return num_equal(x, y);
     }
     a = RFLOAT_VALUE(x);
+#if defined(_MSC_VER) && _MSC_VER < 1300
+    if (isnan(a)) return Qfalse;
+#endif
     return (a == b)?Qtrue:Qfalse;
 }
 
@@ -968,11 +974,17 @@ flo_gt(VALUE x, VALUE y)
 
       case T_FLOAT:
 	b = RFLOAT_VALUE(y);
+#if defined(_MSC_VER) && _MSC_VER < 1300
+	if (isnan(b)) return Qfalse;
+#endif
 	break;
 
       default:
 	return rb_num_coerce_relop(x, y, '>');
     }
+#if defined(_MSC_VER) && _MSC_VER < 1300
+    if (isnan(a)) return Qfalse;
+#endif
     return (a > b)?Qtrue:Qfalse;
 }
 
@@ -1001,11 +1013,17 @@ flo_ge(VALUE x, VALUE y)
 
       case T_FLOAT:
 	b = RFLOAT_VALUE(y);
+#if defined(_MSC_VER) && _MSC_VER < 1300
+	if (isnan(b)) return Qfalse;
+#endif
 	break;
 
       default:
 	return rb_num_coerce_relop(x, y, rb_intern(">="));
     }
+#if defined(_MSC_VER) && _MSC_VER < 1300
+    if (isnan(a)) return Qfalse;
+#endif
     return (a >= b)?Qtrue:Qfalse;
 }
 
@@ -1033,11 +1051,17 @@ flo_lt(VALUE x, VALUE y)
 
       case T_FLOAT:
 	b = RFLOAT_VALUE(y);
+#if defined(_MSC_VER) && _MSC_VER < 1300
+	if (isnan(b)) return Qfalse;
+#endif
 	break;
 
       default:
 	return rb_num_coerce_relop(x, y, '<');
     }
+#if defined(_MSC_VER) && _MSC_VER < 1300
+    if (isnan(a)) return Qfalse;
+#endif
     return (a < b)?Qtrue:Qfalse;
 }
 
@@ -1066,11 +1090,17 @@ flo_le(VALUE x, VALUE y)
 
       case T_FLOAT:
 	b = RFLOAT_VALUE(y);
+#if defined(_MSC_VER) && _MSC_VER < 1300
+	if (isnan(b)) return Qfalse;
+#endif
 	break;
 
       default:
 	return rb_num_coerce_relop(x, y, rb_intern("<="));
     }
+#if defined(_MSC_VER) && _MSC_VER < 1300
+    if (isnan(a)) return Qfalse;
+#endif
     return (a <= b)?Qtrue:Qfalse;
 }
 
@@ -1089,7 +1119,12 @@ static VALUE
 flo_eql(VALUE x, VALUE y)
 {
     if (TYPE(y) == T_FLOAT) {
-	if (RFLOAT_VALUE(x) == RFLOAT_VALUE(y))
+	double a = RFLOAT_VALUE(x);
+	double b = RFLOAT_VALUE(y);
+#if defined(_MSC_VER) && _MSC_VER < 1300
+	if (isnan(a) || isnan(b)) return Qfalse;
+#endif
+	if (a == b)
 	    return Qtrue;
     }
     return Qfalse;