diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-03-21 20:03:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-03-21 20:03:05 (GMT) |
| commit | c5eaca355ab3dce2489b03898682e6a03fea54b3 (patch) | |
| tree | 2b634d4b60445932e64ec1b65775454b66a929a6 /generic/tclStrToD.c | |
| parent | 744b274485110d471015d39faf19ebb16cc1e487 (diff) | |
| download | tcl-c5eaca355ab3dce2489b03898682e6a03fea54b3.zip tcl-c5eaca355ab3dce2489b03898682e6a03fea54b3.tar.gz tcl-c5eaca355ab3dce2489b03898682e6a03fea54b3.tar.bz2 | |
* generic/tclStrToD.c: One of the branches of AccumulateDecimalDigit
* tests/parseExpr.test: did not. [Bug 1451233]
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; |