diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-11 21:51:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-11 21:51:31 (GMT) |
| commit | 2a94e801888e3dd1b0514c9c20baca08919f8dca (patch) | |
| tree | 6d5c0ceb2810a9a80f12a702143ffc9f939d40f1 /generic/tclCmdMZ.c | |
| parent | 1b232cf14ce2e75971718160c301d39c97ab4341 (diff) | |
| parent | 874327229c5e64a52e1fc3b4da6a31936ec07ed2 (diff) | |
| download | tcl-2a94e801888e3dd1b0514c9c20baca08919f8dca.zip tcl-2a94e801888e3dd1b0514c9c20baca08919f8dca.tar.gz tcl-2a94e801888e3dd1b0514c9c20baca08919f8dca.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index f94d914..8abf166 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -20,6 +20,7 @@ #include "tclCompile.h" #include "tclRegexp.h" #include "tclStringTrim.h" +#include "tclTomMath.h" static inline Tcl_Obj * During(Tcl_Interp *interp, int resultCode, Tcl_Obj *oldOptions, Tcl_Obj *errorInfo); @@ -3748,7 +3749,7 @@ TclNRSwitchObjCmd( TclNewIndexObj(rangeObjAry[0], info.matches[j].start); TclNewIndexObj(rangeObjAry[1], info.matches[j].end-1); } else { - TclNewIndexObj(rangeObjAry[1], TCL_INDEX_NONE); + TclNewIntObj(rangeObjAry[1], -1); rangeObjAry[0] = rangeObjAry[1]; } |