diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-30 19:11:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-30 19:11:39 (GMT) |
| commit | a27e0ef2ceb009ca714694c59e84caa937d27b66 (patch) | |
| tree | ea89a5f80ca80c4c734c3b8beb0daaa3bfb81a2a /generic/tclStringObj.c | |
| parent | 7435702d63be37049674d56f6baef6012cb89378 (diff) | |
| parent | 220d2d7d9c2c61b1c319685a76e410fc3024facf (diff) | |
| download | tcl-a27e0ef2ceb009ca714694c59e84caa937d27b66.zip tcl-a27e0ef2ceb009ca714694c59e84caa937d27b66.tar.gz tcl-a27e0ef2ceb009ca714694c59e84caa937d27b66.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclStringObj.c')
| -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 9913160..2ebec64 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3637,6 +3637,7 @@ TclStringReplace( } result = Tcl_NewByteArrayObj(NULL, numBytes - count + newBytes); /* PANIC? */ + Tcl_SetByteArrayLength(result, 0); TclAppendBytesToByteArray(result, bytes, first); TclAppendBytesToByteArray(result, iBytes, newBytes); TclAppendBytesToByteArray(result, bytes + first + count, |