diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-04 11:38:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-04 11:38:09 (GMT) |
| commit | 179ed8faa4d8ab47fdb8ae6701308b73f8ce440b (patch) | |
| tree | 722adc5a7c81396cdd5aaff3f6aa12d2086cac74 /generic/tclStringObj.c | |
| parent | 2ed49a3c8102564e96352e3b8cc77f234adcae6e (diff) | |
| parent | 0f21498784cb704ce6098fcc71b786e422fb2b8d (diff) | |
| download | tcl-179ed8faa4d8ab47fdb8ae6701308b73f8ce440b.zip tcl-179ed8faa4d8ab47fdb8ae6701308b73f8ce440b.tar.gz tcl-179ed8faa4d8ab47fdb8ae6701308b73f8ce440b.tar.bz2 | |
Make packages msgcat and tcltest work unmodified in "novem". Make more test-cases work unmodified in "novem".
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 7fd7cc1..b486106 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; |