diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-21 12:06:34 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-21 12:06:34 (GMT) |
| commit | 5e67db1121363ac6be972bb2d779ad5c88c4a273 (patch) | |
| tree | d8d15ac58ad75266481d143473a0c9ab00f280a7 /generic/tclEncoding.c | |
| parent | defde2ff1d07800936bb895fa73e72ce3279b4c3 (diff) | |
| download | tcl-5e67db1121363ac6be972bb2d779ad5c88c4a273.zip tcl-5e67db1121363ac6be972bb2d779ad5c88c4a273.tar.gz tcl-5e67db1121363ac6be972bb2d779ad5c88c4a273.tar.bz2 | |
Start on bug [945d2387d7]
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 64fb1b6..95acfa9 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2943,6 +2943,9 @@ Utf16ToUtfProc( *dst++ = (ch & 0xFF); } else if (HIGH_SURROGATE(prev) || HIGH_SURROGATE(ch)) { dst += Tcl_UniCharToUtf(ch | TCL_COMBINE, dst); + if (HIGH_SURROGATE(prev) && LOW_SURROGATE(ch)) { + --numChars; /* Character has been combined, so compensage count */ + } } else if (LOW_SURROGATE(ch) && !PROFILE_TCL8(flags)) { /* Lo surrogate not preceded by Hi surrogate and not tcl8 profile */ if (PROFILE_STRICT(flags)) { |