diff options
| author | dgp <dgp@users.sourceforge.net> | 2010-03-29 21:57:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2010-03-29 21:57:33 (GMT) |
| commit | c839e018aafb94be00950841cdd249804cb02305 (patch) | |
| tree | 797731259de846223c51b5e5170468b9964f4098 /generic/tclStringObj.c | |
| parent | ef0d769735e1777b38af7537e22927c92f9e473e (diff) | |
| download | tcl-c839e018aafb94be00950841cdd249804cb02305.zip tcl-c839e018aafb94be00950841cdd249804cb02305.tar.gz tcl-c839e018aafb94be00950841cdd249804cb02305.tar.bz2 | |
* generic/tclStringObj.c: Fix array overrun in test format-1.12
caught by valgrind testing.
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index ffa51f8..ab6a600 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -33,7 +33,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStringObj.c,v 1.70.2.19 2010/01/18 09:50:57 dkf Exp $ */ + * RCS: @(#) $Id: tclStringObj.c,v 1.70.2.20 2010/03/29 21:57:33 dgp Exp $ */ #include "tclInt.h" #include "tommath.h" @@ -2275,7 +2275,7 @@ Tcl_AppendFormatToObj( int digitOffset; if (useBig && big.used) { - if ((size_t) shift < + if (index < big.used && (size_t) shift < CHAR_BIT*sizeof(Tcl_WideUInt) - DIGIT_BIT) { bits |= (((Tcl_WideUInt)big.dp[index++]) <<shift); shift += DIGIT_BIT; |