diff options
author | dgp <dgp@noemail.net> | 2006-03-21 20:03:05 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2006-03-21 20:03:05 (GMT) |
commit | ad0f08e50bafe2055c736d450f1eabdebc530b9a (patch) | |
tree | 2b634d4b60445932e64ec1b65775454b66a929a6 /generic/tclStrToD.c | |
parent | 332f67531752c0b2e378044076edc5afaed46aae (diff) | |
download | tcl-ad0f08e50bafe2055c736d450f1eabdebc530b9a.zip tcl-ad0f08e50bafe2055c736d450f1eabdebc530b9a.tar.gz tcl-ad0f08e50bafe2055c736d450f1eabdebc530b9a.tar.bz2 |
* generic/tclStrToD.c: One of the branches of AccumulateDecimalDigit
* tests/parseExpr.test: did not. [Bug 1451233]
FossilOrigin-Name: ac158a0c4f4a5085bf8f77e0839e7617ba4b863e
Diffstat (limited to 'generic/tclStrToD.c')
-rwxr-xr-x | generic/tclStrToD.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 7122d33..f5ff814 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStrToD.c,v 1.19 2005/12/27 20:14:09 kennykb Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.20 2006/03/21 20:03:06 dgp Exp $ * *---------------------------------------------------------------------- */ @@ -1250,6 +1250,7 @@ AccumulateDecimalDigit( n -= 256; } mp_mul_2d(bignumRepPtr, (int)(numZeros+1)&~0x7, bignumRepPtr); + mp_add_d(bignumRepPtr, (mp_digit) digit, bignumRepPtr); } return bignumFlag; |