diff options
author | griffin <briang42@easystreet.net> | 2022-11-24 01:18:36 (GMT) |
---|---|---|
committer | griffin <briang42@easystreet.net> | 2022-11-24 01:18:36 (GMT) |
commit | 7b6d0229053cd8590549a3d9c256b97125455fd6 (patch) | |
tree | 6d06ed89632e265fed2bda597115f19d2d018e8a /generic/tclCmdIL.c | |
parent | 4335a4f4756de329d8abe3cf77fae90b8e664faf (diff) | |
parent | dc6366fef862bab942ea21db724f632950f43601 (diff) | |
download | tcl-7b6d0229053cd8590549a3d9c256b97125455fd6.zip tcl-7b6d0229053cd8590549a3d9c256b97125455fd6.tar.gz tcl-7b6d0229053cd8590549a3d9c256b97125455fd6.tar.bz2 |
Support multiple indicies in abstract list lindex operation.
Catch up with trunk.
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index c5064dc..00a71a4 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -21,6 +21,8 @@ #include "tclInt.h" #include "tclRegexp.h" #include "tclArithSeries.h" +#include "tclTomMath.h" +#include <math.h> #include <assert.h> /* @@ -3591,7 +3593,7 @@ Tcl_LsearchObjCmd( if (allMatches || inlineReturn) { Tcl_ResetResult(interp); } else { - TclNewIndexObj(itemPtr, TCL_INDEX_NONE); + TclNewIntObj(itemPtr, TCL_INDEX_NONE); Tcl_SetObjResult(interp, itemPtr); } goto done; |