diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-19 15:49:13 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-19 15:49:13 (GMT) |
commit | f22a5b57f7bfe63f0f97cbc22f7fa7906dcc10aa (patch) | |
tree | f11cd9a09246fb180256e3e030f4564a002b2277 /generic/tclCmdIL.c | |
parent | 883924f1e890e4530cfb1c6120e79b52e1db5ebf (diff) | |
download | tcl-f22a5b57f7bfe63f0f97cbc22f7fa7906dcc10aa.zip tcl-f22a5b57f7bfe63f0f97cbc22f7fa7906dcc10aa.tar.gz tcl-f22a5b57f7bfe63f0f97cbc22f7fa7906dcc10aa.tar.bz2 |
Fix [a4617c8e90] - lsearch index truncation
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r-- | generic/tclCmdIL.c | 5 |
1 files changed, 3 insertions, 2 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; |