diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:58:03 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:58:03 (GMT) |
| commit | ad757b50dce2f04dd5e6d034a96f4ddd90621a0e (patch) | |
| tree | cfbfa288827264191f775831eb764124204cccde /generic/tclStringObj.c | |
| parent | 304b56917085547380c76f70b6adcb5a92e5cba6 (diff) | |
| parent | 590288982511400f0dd0f244fb753b01a8bae140 (diff) | |
| download | tcl-ad757b50dce2f04dd5e6d034a96f4ddd90621a0e.zip tcl-ad757b50dce2f04dd5e6d034a96f4ddd90621a0e.tar.gz tcl-ad757b50dce2f04dd5e6d034a96f4ddd90621a0e.tar.bz2 | |
merge 8.6: bug [d051b77fc1] fixed
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 767026d..c106f0e 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1904,6 +1904,11 @@ Tcl_AppendFormatToObj( width = 0; if (isdigit(UCHAR(ch))) { width = strtoul(format, &end, 10); + if (width < 0) { + msg = overflow; + errCode = "OVERFLOW"; + goto errorMsg; + } format = end; step = TclUtfToUniChar(format, &ch); } else if (ch == '*') { |