diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-07 10:49:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-07 10:49:12 (GMT) |
| commit | 537d9f7bbf1b8e16575029114a141e1e8ecb2976 (patch) | |
| tree | 91d156b4860a2f4d7ff66390e3aeb7fac54e984a /generic/tclEncoding.c | |
| parent | fa7d38bb8544380b98c90b23944e69603c0b1525 (diff) | |
| parent | f3bd8e0942b5615008a1aaa74bb24151eaa1ed19 (diff) | |
| download | tcl-537d9f7bbf1b8e16575029114a141e1e8ecb2976.zip tcl-537d9f7bbf1b8e16575029114a141e1e8ecb2976.tar.gz tcl-537d9f7bbf1b8e16575029114a141e1e8ecb2976.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 63ebdf4..7bdba96 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -3306,7 +3306,9 @@ TableToUtfProc( } else if (PROFILE_REPLACE(flags)) { ch = UNICODE_REPLACE_CHAR; } else { - ch = (Tcl_UniChar)byte; + char chbuf[2]; + chbuf[0] = byte; chbuf[1] = 0; + Tcl_UtfToUniChar(chbuf, &ch); } } else { ch = toUnicode[byte][*((unsigned char *)++src)]; @@ -3326,7 +3328,9 @@ TableToUtfProc( if (PROFILE_REPLACE(flags)) { ch = UNICODE_REPLACE_CHAR; } else { - ch = (Tcl_UniChar)byte; + char chbuf[2]; + chbuf[0] = byte; chbuf[1] = 0; + Tcl_UtfToUniChar(chbuf, &ch); } } |