diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-23 13:25:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-23 13:25:45 (GMT) |
| commit | fefd5e71dcb3969e41112b186b2d30918ad62010 (patch) | |
| tree | c7f8968d3f2a6dbed22973a4b87d5c438b350a26 /generic/tclTest.c | |
| parent | 097954529a4f7cbc2bba17841f07a4283b68f1cc (diff) | |
| parent | 613ad6861bdef8e2bfcde5630c0b34af183c6f56 (diff) | |
| download | tcl-fefd5e71dcb3969e41112b186b2d30918ad62010.zip tcl-fefd5e71dcb3969e41112b186b2d30918ad62010.tar.gz tcl-fefd5e71dcb3969e41112b186b2d30918ad62010.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index efa045e..02e1fac 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -2086,7 +2086,6 @@ static int UtfExtWrapper( } flagMap[] = { {"start", TCL_ENCODING_START}, {"end", TCL_ENCODING_END}, - {"stoponerror", TCL_ENCODING_PROFILE_STRICT}, {"noterminate", TCL_ENCODING_NO_TERMINATE}, {"charlimit", TCL_ENCODING_CHAR_LIMIT}, {"profiletcl8", TCL_ENCODING_PROFILE_TCL8}, @@ -3813,7 +3812,7 @@ TestlistrepCmd( Tcl_Obj *const objv[]) /* Argument objects. */ { /* Subcommands supported by this command */ - const char* subcommands[] = { + static const char *const subcommands[] = { "new", "describe", "config", @@ -4624,11 +4623,11 @@ TestregexpObjCmd( } else { if (ii == TCL_INDEX_NONE) { TclRegExpRangeUniChar(regExpr, ii, &start, &end); - newPtr = Tcl_GetRange(objPtr, start, end); + newPtr = TclGetRange(objPtr, start, end); } else if (ii > info.nsubs || info.matches[ii].end <= 0) { newPtr = Tcl_NewObj(); } else { - newPtr = Tcl_GetRange(objPtr, info.matches[ii].start, + newPtr = TclGetRange(objPtr, info.matches[ii].start, info.matches[ii].end - 1); } } |