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/tclCmdIL.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/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 3e297f6..1ca6c5e 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -20,6 +20,7 @@ #include "tclInt.h" #include "tclRegexp.h" #include "tclArithSeries.h" +#include "tclTomMath.h" #include <math.h> #include <assert.h> @@ -3612,7 +3613,7 @@ Tcl_LsearchObjCmd( if (allMatches || inlineReturn) { Tcl_ResetResult(interp); } else { - TclNewIndexObj(itemPtr, TCL_INDEX_NONE); + TclNewIntObj(itemPtr, -1); Tcl_SetObjResult(interp, itemPtr); } goto done; |