Fix bug in previous commit: Don't update stringPtr->numChars when doing a "string reverse", because TclUtfToUCS4() doesn't count surrogate pairs as 2

1 files changed, 0 insertions, 3 deletions

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index bdc9c99..0e1acf0 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -3003,7 +3003,6 @@ TclStringReverse(
 	     * Pass 1. Reverse the bytes of each multi-byte character.
 	     */
 
-	    int charCount = 0;
 	    int bytesLeft = numBytes;
 	    int chw;
 
@@ -3021,11 +3020,9 @@ TclStringReverse(
 		to += bytesInChar;
 		from += bytesInChar;
 		bytesLeft -= bytesInChar;
-		charCount++;
 	    }
 
 	    from = to = objPtr->bytes;
-	    stringPtr->numChars = charCount;
 	}
 	/* Pass 2. Reverse all the bytes. */
 	ReverseBytes((unsigned char *)to, (unsigned char *)from, numBytes);