summaryrefslogtreecommitdiffstats
path: root/generic/tclUtf.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2023-03-22 17:57:39 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2023-03-22 17:57:39 (GMT)
commitc103cb5d100f5ae113e9347b3b9c5c6f44e8a972 (patch)
tree2d1b6f972dbbbe4a1b8437fb42ba0908d879e9e1 /generic/tclUtf.c
parentf1fafe7c16c654a9f7f65644db877071980b8a5d (diff)
parentdedbaf0009124faf33dcc67e274c239b4f8574be (diff)
downloadtcl-c103cb5d100f5ae113e9347b3b9c5c6f44e8a972.zip
tcl-c103cb5d100f5ae113e9347b3b9c5c6f44e8a972.tar.gz
tcl-c103cb5d100f5ae113e9347b3b9c5c6f44e8a972.tar.bz2
Merge 8.6
Diffstat (limited to 'generic/tclUtf.c')
-rw-r--r--generic/tclUtf.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c
index cb8bb3e..fd8681c 100644
--- a/generic/tclUtf.c
+++ b/generic/tclUtf.c
@@ -464,7 +464,7 @@ Tcl_UtfToUniChar(
}
return 1;
} else if (byte < 0xE0) {
- if ((src[1] & 0xC0) == 0x80) {
+ if ((byte != 0xC1) && ((src[1] & 0xC0) == 0x80)) {
/*
* Two-byte-character lead-byte followed by a trail-byte.
*/
@@ -559,7 +559,7 @@ Tcl_UtfToChar16(
}
return 1;
} else if (byte < 0xE0) {
- if ((src[1] & 0xC0) == 0x80) {
+ if ((byte != 0xC1) && ((src[1] & 0xC0) == 0x80)) {
/*
* Two-byte-character lead-byte followed by a trail-byte.
*/