diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:51:03 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:51:03 (GMT) |
| commit | 04c687936c9fd7bd62090edf66def7ad55563818 (patch) | |
| tree | 3e8be17536779d0fc29a623547745b80d7be1778 /generic/tclStringObj.c | |
| parent | 2133e40e589348c5df1b721c1d0e0ac2f2385505 (diff) | |
| parent | c7cdc550c4e27c7ab0e3d4537cff99167b4509fd (diff) | |
| download | tcl-04c687936c9fd7bd62090edf66def7ad55563818.zip tcl-04c687936c9fd7bd62090edf66def7ad55563818.tar.gz tcl-04c687936c9fd7bd62090edf66def7ad55563818.tar.bz2 | |
merge 8.5 - bug [d051b77fc1] fixed
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 1795d0c..3139be4 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1876,6 +1876,10 @@ Tcl_AppendFormatToObj( width = 0; if (isdigit(UCHAR(ch))) { width = strtoul(format, &end, 10); + if (width < 0) { + msg = overflow; + goto errorMsg; + } format = end; step = TclUtfToUniChar(format, &ch); } else if (ch == '*') { |