diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-26 14:05:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-26 14:05:44 (GMT) |
| commit | f9ddbba3d621449f2cb1b2a4d0a94927b48391eb (patch) | |
| tree | 3ade494c3df0db96fad2186342e97bb8a78cf8f1 /generic/tclCmdIL.c | |
| parent | 5c61b2bbdce7b9dbc4c067cf5646e8bd175a9d84 (diff) | |
| parent | a4154b246b048a378dd83998031d103263856c8f (diff) | |
| download | tcl-f9ddbba3d621449f2cb1b2a4d0a94927b48391eb.zip tcl-f9ddbba3d621449f2cb1b2a4d0a94927b48391eb.tar.gz tcl-f9ddbba3d621449f2cb1b2a4d0a94927b48391eb.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 854a955..f027cec 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -4069,7 +4069,7 @@ Tcl_LsortObjCmd( sortInfo.isIncreasing = 1; break; case LSORT_INDEX: { - int indexc; + int sortindex; Tcl_Obj **indexv; if (i == objc-2) { @@ -4080,7 +4080,7 @@ Tcl_LsortObjCmd( sortInfo.resultCode = TCL_ERROR; goto done; } - if (TclListObjGetElements(interp, objv[i+1], &indexc, + if (TclListObjGetElements(interp, objv[i+1], &sortindex, &indexv) != TCL_OK) { sortInfo.resultCode = TCL_ERROR; goto done; @@ -4094,7 +4094,7 @@ Tcl_LsortObjCmd( * options is done. */ - for (j=0 ; j<indexc ; j++) { + for (j=0 ; j<sortindex ; j++) { int encoded = 0; int result = TclIndexEncode(interp, indexv[j], TCL_INDEX_NONE, TCL_INDEX_NONE, &encoded); |