diff options
| author | dgp@users.sourceforge.net <dgp> | 2006-03-21 20:03:05 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2006-03-21 20:03:05 (GMT) |
| commit | a00fef0736bc8ab0c3e2d258d99c0b9c8e0714b0 (patch) | |
| tree | 2b634d4b60445932e64ec1b65775454b66a929a6 | |
| parent | df0bfb53effbe0a246b8e28529eba2c0f27df10c (diff) | |
| download | tcl-a00fef0736bc8ab0c3e2d258d99c0b9c8e0714b0.zip tcl-a00fef0736bc8ab0c3e2d258d99c0b9c8e0714b0.tar.gz tcl-a00fef0736bc8ab0c3e2d258d99c0b9c8e0714b0.tar.bz2 | |
* generic/tclStrToD.c: One of the branches of AccumulateDecimalDigit
* tests/parseExpr.test: did not. [Bug 1451233]
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rwxr-xr-x | generic/tclStrToD.c | 3 |
2 files changed, 5 insertions, 1 deletions
@@ -1,5 +1,8 @@ 2006-03-21 Don Porter <dgp@users.sourceforge.net> + * generic/tclStrToD.c: One of the branches of AccumulateDecimalDigit + * tests/parseExpr.test: did not. [Bug 1451233] + * tests/env.test: Preserve case of saved env vars. [Bug 1409272] 2006-03-21 Daniel Steffen <das@users.sourceforge.net> 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; |