diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-21 21:43:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-21 21:43:59 (GMT) |
| commit | 6a1c2d8f5236854b048c1e4f5a24a64a55c7037e (patch) | |
| tree | deaec6f41a4ebe9768b1c6b99797b4bc6f2e6922 /generic/tclListObj.c | |
| parent | 1faa0cca77b8a8f9b6e17acf768afaf71d6eb95d (diff) | |
| parent | ecaf98ffad23b0a547d0cedb852e0186d5c0c0af (diff) | |
| download | tcl-6a1c2d8f5236854b048c1e4f5a24a64a55c7037e.zip tcl-6a1c2d8f5236854b048c1e4f5a24a64a55c7037e.tar.gz tcl-6a1c2d8f5236854b048c1e4f5a24a64a55c7037e.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 8583bad..9102af0 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -2649,7 +2649,7 @@ TclLindexFlat( &index) == TCL_OK) { } if (i==0) { - TclArithSeriesObjIndex(listObj, index, &elemObj); + elemObj = TclArithSeriesObjIndex(NULL, listObj, index); } else if (index > 0) { /* ArithSeries cannot be a list of lists */ Tcl_DecrRefCount(elemObj); @@ -3310,7 +3310,8 @@ SetListFromAny( listRep.storePtr->numUsed = size; elemPtrs = listRep.storePtr->slots; for (j = 0; j < size; j++) { - if (TclArithSeriesObjIndex(objPtr, j, &elemPtrs[j]) != TCL_OK) { + elemPtrs[j] = TclArithSeriesObjIndex(interp, objPtr, j); + if (elemPtrs[j] == NULL) { return TCL_ERROR; } } |