diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-15 12:31:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-15 12:31:41 (GMT) |
| commit | c646a67fd295620422863a3ab3ac74eff316aec3 (patch) | |
| tree | 4bbdf6fc46ff8f43aae43f83aee84ba9441588b8 /generic/tclCompExpr.c | |
| parent | 3345ff1956ae6d7e9411917d2619c0f88ccefd2a (diff) | |
| parent | 6e657cfb83595bc0481d833b708554a44e2142fb (diff) | |
| download | tcl-c646a67fd295620422863a3ab3ac74eff316aec3.zip tcl-c646a67fd295620422863a3ab3ac74eff316aec3.tar.gz tcl-c646a67fd295620422863a3ab3ac74eff316aec3.tar.bz2 | |
Merge 8.7 (this is the TIP #575 implementation for Tcl 9.0)
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 847a240..8de3e7d 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -2148,7 +2148,7 @@ ParseLexeme( if (!TclIsBareword(*start) || *start == '_') { size_t scanned; - if (TclUCS4Complete(start, numBytes)) { + if (Tcl_UtfCharComplete(start, numBytes)) { scanned = TclUtfToUCS4(start, &ch); } else { char utfBytes[8]; |