From c07d378c832ad4f774da307c0623b113c4502b30 Mon Sep 17 00:00:00 2001
From: shigek <shigek@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 26 Aug 2003 13:22:32 +0000
Subject: sqrt() error checking bug fixed.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4445 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/bigdecimal/bigdecimal.c | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/ext/bigdecimal/bigdecimal.c b/ext/bigdecimal/bigdecimal.c
index 6ae02c674..099331682 100644
--- a/ext/bigdecimal/bigdecimal.c
+++ b/ext/bigdecimal/bigdecimal.c
@@ -3624,18 +3624,23 @@ VpSqrt(Real *y, Real *x)
     S_LONG nr;
     double val;
 
+    /* Zero, NaN or Infinity ? */
+    if(!VpHasVal(x)) {
+        if(VpIsZero(x)||VpGetSign(x)>0) {
+            VpAsgn(y,x,1);
+            goto Exit;
+        }
+        VpSetNaN(y);
+        return VpException(VP_EXCEPTION_OP,"(VpSqrt) SQRT(NaN or negative value)",0);
+        goto Exit;
+    }
+
      /* Negative ? */
     if(VpGetSign(x) < 0) {
         VpSetNaN(y);
         return VpException(VP_EXCEPTION_OP,"(VpSqrt) SQRT(negative value)",0);
     }
 
-    /* NaN or Infinity ? */
-    if(!VpHasVal(x)) {
-        VpAsgn(y,x,1);
-        goto Exit;
-    }
-
     /* One ? */
     if(VpIsOne(x)) {
         VpSetOne(y);
-- 
cgit