diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-17 16:11:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-17 16:11:50 (GMT) |
| commit | 5af99f55b25d479c15bfcb63d6959a9611cd6d09 (patch) | |
| tree | 07f852c432ff8df2626e09116cbd15dabd658a3f /generic | |
| parent | dd713ee96ec9cda48ba5f801193a70b6eb49d4a1 (diff) | |
| parent | 8047a470ef35faeafe18de166f773a78097b3fc2 (diff) | |
| download | tcl-5af99f55b25d479c15bfcb63d6959a9611cd6d09.zip tcl-5af99f55b25d479c15bfcb63d6959a9611cd6d09.tar.gz tcl-5af99f55b25d479c15bfcb63d6959a9611cd6d09.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclParse.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index a2227f7..92482d6 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -979,6 +979,12 @@ TclParseBackslash( if (readPtr != NULL) { *readPtr = count; } + if ((result & 0xFC00) == 0xD800) { + dst[2] = (char) ((result | 0x80) & 0xBF); + dst[1] = (char) (((result >> 6) | 0x80) & 0xBF); + dst[0] = (char) ((result >> 12) | 0xE0); + return 3; + } return Tcl_UniCharToUtf(result, dst); } |