diff options
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 59fb9a2..7fae033 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5729,7 +5729,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; |