diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:56:41 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:56:41 (GMT) |
| commit | 590288982511400f0dd0f244fb753b01a8bae140 (patch) | |
| tree | bf0ea5351c34d1f948adf1a76a529cc404d13f20 | |
| parent | 04c687936c9fd7bd62090edf66def7ad55563818 (diff) | |
| download | tcl-590288982511400f0dd0f244fb753b01a8bae140.zip tcl-590288982511400f0dd0f244fb753b01a8bae140.tar.gz tcl-590288982511400f0dd0f244fb753b01a8bae140.tar.bz2 | |
amend after merge: 8.6th provide additionally an error-code (so missing `errCode = "OVERFLOW"`)
| -rw-r--r-- | generic/tclStringObj.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 3139be4..493378c 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1878,6 +1878,7 @@ Tcl_AppendFormatToObj( width = strtoul(format, &end, 10); if (width < 0) { msg = overflow; + errCode = "OVERFLOW"; goto errorMsg; } format = end; |