summaryrefslogtreecommitdiffstats
path: root/generic/tclCompExpr.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2021-06-10 10:59:50 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2021-06-10 10:59:50 (GMT)
commit179a97b763c7f1ea393680661106815915cef816 (patch)
treec19f3c038ede7c5bc881a391d81f2bf2e719a695 /generic/tclCompExpr.c
parent552e9c654253de9ba497a6f05f41ef13cf93d82a (diff)
parentf271e62139957e6137efb528670436c4a9393818 (diff)
downloadtcl-179a97b763c7f1ea393680661106815915cef816.zip
tcl-179a97b763c7f1ea393680661106815915cef816.tar.gz
tcl-179a97b763c7f1ea393680661106815915cef816.tar.bz2
Merge 8.7
Diffstat (limited to 'generic/tclCompExpr.c')
-rw-r--r--generic/tclCompExpr.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c
index fa15fba..03aebe3 100644
--- a/generic/tclCompExpr.c
+++ b/generic/tclCompExpr.c
@@ -2145,7 +2145,7 @@ ParseLexeme(
*/
if (!TclIsBareword(*start) || *start == '_') {
- if (TclUCS4Complete(start, numBytes)) {
+ if (Tcl_UtfCharComplete(start, numBytes)) {
scanned = TclUtfToUCS4(start, &ch);
} else {
char utfBytes[8];