diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 12:50:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 12:50:04 (GMT) |
| commit | 84b9d03fb02b9ee744e03775f590d49f105d23f8 (patch) | |
| tree | 5744c424eb00548acf667916895305f874909917 /generic/tclUtf.c | |
| parent | 2ed71e62a0e1b2fc0b0dca264ffa417ba2d9b159 (diff) | |
| parent | a2a03ea8fb6718cc472cc7dcb44f8e68aadb24ba (diff) | |
| download | tcl-84b9d03fb02b9ee744e03775f590d49f105d23f8.zip tcl-84b9d03fb02b9ee744e03775f590d49f105d23f8.tar.gz tcl-84b9d03fb02b9ee744e03775f590d49f105d23f8.tar.bz2 | |
TIP 537 implementation: Enable 64-bit indexes in regexp matching
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 6a40856..5177fd0 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1027,7 +1027,7 @@ Tcl_UtfAtIndex( size_t len = 0; #endif - if (index != TCL_AUTO_LENGTH) { + if (index != TCL_INDEX_NONE) { while (index--) { #if TCL_UTF_MAX <= 4 src += (len = TclUtfToUniChar(src, &ch)); |