diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-13 13:51:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-13 13:51:26 (GMT) |
| commit | 82df0e7cc9a71bbd7eb06fe4bd1ee9e979b40a13 (patch) | |
| tree | 3db4d6587204ba5ba1263f99c7ecf509bfadcb64 | |
| parent | be9f231fdaea85177d206ea98320c888b73f00d8 (diff) | |
| download | tcl-82df0e7cc9a71bbd7eb06fe4bd1ee9e979b40a13.zip tcl-82df0e7cc9a71bbd7eb06fe4bd1ee9e979b40a13.tar.gz tcl-82df0e7cc9a71bbd7eb06fe4bd1ee9e979b40a13.tar.bz2 | |
Oops
| -rw-r--r-- | generic/tclEncoding.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 4166e45..5549874 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2396,7 +2396,7 @@ Utf32ToUtfProc( const char *srcStart, *srcEnd; const char *dstEnd, *dstStart; int result, numChars, charLimit = INT_MAX; - unsigned short ch; + int ch; flags |= PTR2INT(clientData); if (flags & TCL_ENCODING_CHAR_LIMIT) { @@ -2436,7 +2436,7 @@ Utf32ToUtfProc( * unsigned short-size data. */ - if (ch && ch < 0x80) { + if ((ch > 0) && (ch < 0x80)) { *dst++ = (ch & 0xFF); } else { dst += Tcl_UniCharToUtf(ch, dst); |