From a179c38e4c5b75469703720efa45c09e6f6a40c6 Mon Sep 17 00:00:00 2001
From: shigek <shigek@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 5 Aug 2003 14:03:09 +0000
Subject: Trailing 0s in split removed. & bug in floor fixed.

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

(limited to 'ext/bigdecimal')

diff --git a/ext/bigdecimal/bigdecimal.c b/ext/bigdecimal/bigdecimal.c
index 4f747e2922..166e01e2d2 100644
--- a/ext/bigdecimal/bigdecimal.c
+++ b/ext/bigdecimal/bigdecimal.c
@@ -3154,6 +3154,7 @@ VpSzMantissa(Real *a,char *psz)
             }
         }
         *psz = 0;
+        while(psz[-1]=='0') *(--psz) = 0;
     } else {
         if(VpIsPosZero(a)) sprintf(psz, "0");
         else      sprintf(psz, "-0");
@@ -3728,8 +3729,9 @@ VpMidRound(Real *y, int f, int nf)
             VpNmlz(y);
             VpRdup(y,0);
         } else {
+            S_INT s = VpGetSign(y);
             VpSetOne(y);
-            VpSetSign(y,VpGetSign(y));
+            VpSetSign(y,s);
         }
     } else {
         y->frac[ix] = div;
-- 
cgit v1.2.3