From f22a5b57f7bfe63f0f97cbc22f7fa7906dcc10aa Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Wed, 19 Apr 2023 15:49:13 +0000 Subject: Fix [a4617c8e90] - lsearch index truncation --- generic/tclCmdIL.c | 5 +++-- tests/bigdata.test | 3 ++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index f291e5d..f7ec027 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -3243,8 +3243,9 @@ Tcl_LsearchObjCmd( Tcl_Obj *const objv[]) /* Argument values. */ { const char *bytes, *patternBytes; - int match, index, result=TCL_OK, bisect; - Tcl_Size i, length = 0, listc, elemLen, start, groupSize, groupOffset, lower, upper; + int match, result=TCL_OK, bisect; + Tcl_Size i, length = 0, listc, elemLen, start, index; + Tcl_Size groupSize, groupOffset, lower, upper; int allocatedIndexVector = 0; int isIncreasing; Tcl_WideInt patWide, objWide, wide; diff --git a/tests/bigdata.test b/tests/bigdata.test index 78b8baf..34b51dc 100644 --- a/tests/bigdata.test +++ b/tests/bigdata.test @@ -944,7 +944,8 @@ bigtestRO lsearch-bigdata-1 "lsearch" {4294967300 4294967310 -1} -body { set l [bigList 0x100000010 4294967300] } -cleanup { bigClean -} -constraints bug-a4617c8e90 +} +# TODO - stride, inline, all # # lseq -- cgit v0.12