diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-26 13:45:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-26 13:45:40 (GMT) |
| commit | a4154b246b048a378dd83998031d103263856c8f (patch) | |
| tree | 521abd6a25b1866875951f26920b2643e0a4c778 /generic/tclCmdIL.c | |
| parent | 14276a3feb131ef52ed60ccce8f66df43cdd98b2 (diff) | |
| download | tcl-a4154b246b048a378dd83998031d103263856c8f.zip tcl-a4154b246b048a378dd83998031d103263856c8f.tar.gz tcl-a4154b246b048a378dd83998031d103263856c8f.tar.bz2 | |
Resolve a number of shadowed variables (discovered by compiling with -Wshadow)
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 a73a292..7e685bd 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -3729,7 +3729,7 @@ Tcl_LsortObjCmd( sortInfo.isIncreasing = 1; break; case LSORT_INDEX: { - int indexc; + int sortindex; Tcl_Obj **indexv; if (i == objc-2) { @@ -3740,7 +3740,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; @@ -3754,7 +3754,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_BEFORE, TCL_INDEX_AFTER, &encoded); |