diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-16 21:26:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-16 21:26:39 (GMT) |
| commit | 46eeca1581621c907a9da2061d8fe78fcde9a95c (patch) | |
| tree | 5c99ad818eba4667e02a0bf129f1b7af3b09ade9 /generic/tclStringObj.c | |
| parent | 72000228fc6e9b42002126eaeccfa3f6291e4ddf (diff) | |
| parent | f3edde2f64fa0a8ca5db52a25ae371832a9af65b (diff) | |
| download | tcl-46eeca1581621c907a9da2061d8fe78fcde9a95c.zip tcl-46eeca1581621c907a9da2061d8fe78fcde9a95c.tar.gz tcl-46eeca1581621c907a9da2061d8fe78fcde9a95c.tar.bz2 | |
Merge 8.6
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 4735f43..428f758 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1674,10 +1674,10 @@ AppendUtfToUtfRep( objPtr->length = 0; } oldLength = objPtr->length; - newLength = numBytes + oldLength; - if (newLength < 0) { + if (numBytes > INT_MAX - oldLength) { Tcl_Panic("max size for a Tcl value (%d bytes) exceeded", INT_MAX); } + newLength = numBytes + oldLength; stringPtr = GET_STRING(objPtr); if (newLength > stringPtr->allocated) { |