From 0ec868314558e7b0583235a3fd363c767bb35ecc Mon Sep 17 00:00:00 2001
From: shigek <shigek@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 27 Aug 2003 13:29:23 +0000
Subject: Forgot to round '*'.

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

(limited to 'ext')

diff --git a/ext/bigdecimal/bigdecimal.c b/ext/bigdecimal/bigdecimal.c
index 099331682b..029c6f4c9d 100644
--- a/ext/bigdecimal/bigdecimal.c
+++ b/ext/bigdecimal/bigdecimal.c
@@ -2026,7 +2026,7 @@ VpAsgn(Real *c, Real *a, int isw)
             if(c->Prec < a->Prec) {
                VpInternalRound(c,n,(n>0)?a->frac[n-1]:0,a->frac[n]);
             } else {
-                VpLimitRound(c,0);
+               VpLimitRound(c,0);
             }
         }
     } else {
@@ -2589,12 +2589,13 @@ VpMult(Real *c, Real *a, Real *b)
             }
         }
     }
-
-    VpNmlz(c);            /* normalize the result */
     if(w != NULL) {        /* free work variable */
+        VpNmlz(c);
         VpAsgn(w, c, 1);
         VpFree(c);
         c = w;
+    } else {
+        VpLimitRound(c,0);
     }
 
 Exit:
@@ -3821,7 +3822,8 @@ static int
 VpLimitRound(Real *c,U_LONG ixDigit)
 {
     U_LONG ix = VpGetPrecLimit();
-    if(!ix) return 0;
+    if(!VpNmlz(c))    return -1;
+    if(!ix)           return 0;
     if(!ixDigit) ixDigit = c->Prec-1;
     if((ix+BASE_FIG-1)/BASE_FIG > ixDigit+1) return 0;
     return VpLeftRound(c,VpGetRoundMode(),ix);
@@ -3832,7 +3834,6 @@ VpInternalRound(Real *c,int ixDigit,U_LONG vPrev,U_LONG v)
 {
     int f = 0;
 
-    if(!VpNmlz(c))              return;
     if(VpLimitRound(c,ixDigit)) return;
     if(!v)                      return;
 
-- 
cgit v1.2.3