diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-01 13:52:59 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-01 13:52:59 (GMT) |
commit | 2d243b0a436a076d101d82b28193e13c58860f10 (patch) | |
tree | fd9bfc4a5eafe5620ed936dc755f12ba9461afed | |
parent | f712d20c4f1fe203f78c14d4d8b1052de0314ff7 (diff) | |
parent | 7a136a781a8acc9f92bafecfb5406db9537d61ed (diff) | |
download | tcl-tip_389_impl.zip tcl-tip_389_impl.tar.gz tcl-tip_389_impl.tar.bz2 |
merge trunktip_389_impl
-rw-r--r-- | generic/tclEncoding.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 8147242..76dba75 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2296,7 +2296,7 @@ UtfToUtfProc( Tcl_UniChar *chPtr = (Tcl_UniChar *) statePtr; if (flags & TCL_ENCODING_START) { - *chPtr = 0; + *statePtr = 0; } result = TCL_OK; @@ -2349,7 +2349,7 @@ UtfToUtfProc( * incomplete char its bytes are made to represent themselves. */ - *chPtr = (unsigned char) *src; + *chPtr = (unsigned char) *src; src += 1; dst += Tcl_UniCharToUtf(*chPtr, dst); } else { @@ -2415,7 +2415,7 @@ UnicodeToUtfProc( Tcl_UniChar *chPtr = (Tcl_UniChar *) statePtr; if (flags & TCL_ENCODING_START) { - *chPtr = 0; + *statePtr = 0; } if (flags & TCL_ENCODING_CHAR_LIMIT) { charLimit = *dstCharsPtr; @@ -2510,7 +2510,7 @@ UtfToUnicodeProc( Tcl_UniChar *chPtr = (Tcl_UniChar *) statePtr; if (flags & TCL_ENCODING_START) { - *chPtr = 0; + *statePtr = 0; } srcStart = src; srcEnd = src + srcLen; |