diff options
| author | griffin <briang42@easystreet.net> | 2022-09-26 16:27:01 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2022-09-26 16:27:01 (GMT) |
| commit | 196a720845760665e592d261a61fd8111db2bc67 (patch) | |
| tree | d808dc5c798395c6d4456c31d001a5b2c7dd27e0 | |
| parent | dda585be8bc4eb50870c491eb7cd1b29eb42cef1 (diff) | |
| download | tcl-196a720845760665e592d261a61fd8111db2bc67.zip tcl-196a720845760665e592d261a61fd8111db2bc67.tar.gz tcl-196a720845760665e592d261a61fd8111db2bc67.tar.bz2 | |
Fix compile error.
| -rw-r--r-- | generic/tclListObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 12b8386..623689b 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -2632,7 +2632,8 @@ TclLindexFlat( /* Handle ArithSeries as special case */ if (TclHasInternalRep(listObj,&tclArithSeriesType)) { - Tcl_WideInt index, listLen = TclArithSeriesObjLength(listObj); + Tcl_WideInt listLen = TclArithSeriesObjLength(listObj); + int index; Tcl_Obj *elemObj = NULL; for (i=0 ; i<indexCount && listObj ; i++) { if (TclGetIntForIndexM(interp, indexArray[i], /*endValue*/ listLen-1, |