summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-03-21 20:03:05 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-03-21 20:03:05 (GMT)
commitc5eaca355ab3dce2489b03898682e6a03fea54b3 (patch)
tree2b634d4b60445932e64ec1b65775454b66a929a6
parent744b274485110d471015d39faf19ebb16cc1e487 (diff)
downloadtcl-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]
-rw-r--r--ChangeLog3
-rwxr-xr-xgeneric/tclStrToD.c3
2 files changed, 5 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 71e8691..53e70f0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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;