diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-18 16:29:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-18 16:29:32 (GMT) |
| commit | a83eef06a3fbe9fde88a05e09458146289e79b94 (patch) | |
| tree | aaaf551cbbac79d8694fe928cb80644c22ed11d9 /generic/tclCmdMZ.c | |
| parent | f0f85b5e6e04d87653d2ca6249cdec7c31bab382 (diff) | |
| parent | 8ce6115cf59c570acf00e2ac58a26235288ad90f (diff) | |
| download | tcl-a83eef06a3fbe9fde88a05e09458146289e79b94.zip tcl-a83eef06a3fbe9fde88a05e09458146289e79b94.tar.gz tcl-a83eef06a3fbe9fde88a05e09458146289e79b94.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index ae4f25f..d5828cd 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -3789,7 +3789,7 @@ TclNRSwitchObjCmd( TclNewIndexObj(rangeObjAry[0], info.matches[j].start); TclNewIndexObj(rangeObjAry[1], info.matches[j].end-1); } else { - TclNewIndexObj(rangeObjAry[1], -1); + TclNewIndexObj(rangeObjAry[1], TCL_INDEX_NONE); rangeObjAry[0] = rangeObjAry[1]; } |