diff options
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 == '*') { |