diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-11-04 15:52:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-11-04 15:52:17 (GMT) |
| commit | fbc3a63f6c2f807d2181059be4b58e68e1791f00 (patch) | |
| tree | 41598aab42e4b2e8638fd08568b6203c6404ca91 /generic/tclStringObj.c | |
| parent | f2262dec1cdcdbae633751f0c986e4bfff4035db (diff) | |
| parent | 18a2ebc51dc9923f5cd946614aa87f4293ab40bd (diff) | |
| download | tcl-fbc3a63f6c2f807d2181059be4b58e68e1791f00.zip tcl-fbc3a63f6c2f807d2181059be4b58e68e1791f00.tar.gz tcl-fbc3a63f6c2f807d2181059be4b58e68e1791f00.tar.bz2 | |
merge trunk
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 61ff2fc..85b15fd 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2656,7 +2656,7 @@ TclStringCatObjv( /* Value has a string rep. */ if (objPtr->length) { /* - * Non-empty string rep. Not a pure bytearray, so we + * Non-empty string rep. Not a pure bytearray, so we * won't create a pure bytearray */ binary = 0; @@ -2753,7 +2753,7 @@ TclStringCatObjv( if (inPlace && !Tcl_IsShared(*objv)) { int start; - + objResultPtr = *objv++; objc--; Tcl_GetByteArrayFromObj(objResultPtr, &start); dst = Tcl_SetByteArrayLength(objResultPtr, length) + start; |