From d4120b1f1d7d54736dc7f6d0747e2bf6bd2e1ccf Mon Sep 17 00:00:00 2001 From: naruse Date: Tue, 16 Mar 2010 08:38:14 +0000 Subject: * ext/bigdecimal/bigdecimal.c (VpCtoV): keep e's sign. When e doesn't over flow e * BASE_FIG but overflow e * 10, e will overflow. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@26954 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/bigdecimal/bigdecimal.c | 1 + 1 file changed, 1 insertion(+) (limited to 'ext/bigdecimal/bigdecimal.c') diff --git a/ext/bigdecimal/bigdecimal.c b/ext/bigdecimal/bigdecimal.c index 667f58128d..189a6c77fb 100644 --- a/ext/bigdecimal/bigdecimal.c +++ b/ext/bigdecimal/bigdecimal.c @@ -4045,6 +4045,7 @@ VpCtoV(Real *a, const char *int_chr, U_LONG ni, const char *frac, U_LONG nf, con e = e * 10 + exp_chr[i] - '0'; if(es>e*((S_INT)BASE_FIG)) { exponent_overflow = 1; + e = es; break; } ++i; -- cgit v1.2.3