diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-26 10:32:45 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-26 10:32:45 (GMT) |
commit | 75428bc8f7d86a735afdb1a1dd94096a253e7b06 (patch) | |
tree | 6a0e44bcd6bd3533c12b0e773550b69794012d8f /generic/tclExecute.c | |
parent | 862ae1266cd494baaed59be9a1d74b66de7eaa6a (diff) | |
parent | af99fa7f7f426f932103c240518cca638f199ad9 (diff) | |
download | tcl-75428bc8f7d86a735afdb1a1dd94096a253e7b06.zip tcl-75428bc8f7d86a735afdb1a1dd94096a253e7b06.tar.gz tcl-75428bc8f7d86a735afdb1a1dd94096a253e7b06.tar.bz2 |
Rebase to 8.7
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 674406c..0e7a29e 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5728,7 +5728,7 @@ TEBCresume( int ch; end = ustring1 + length; for (p=ustring1 ; p<end ; ) { - p += TclUniCharToUCS4(p, &ch); + ch = *p++; if (!tclStringClassTable[opnd].comparator(ch)) { match = 0; break; |