diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-07 18:59:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-07 18:59:37 (GMT) |
| commit | 2799ad9f6c20f61947f9ab30a8a884a0d2e359a6 (patch) | |
| tree | a1d594e13992b8c511f4e96743170a1ff01699b4 /generic/tclCmdAH.c | |
| parent | 622d68eaef01f805e3e214a12128488c505fd3d2 (diff) | |
| parent | 12f23af5456f4a87b8bc4d58f9dcfc0edf2c9676 (diff) | |
| download | tcl-2799ad9f6c20f61947f9ab30a8a884a0d2e359a6.zip tcl-2799ad9f6c20f61947f9ab30a8a884a0d2e359a6.tar.gz tcl-2799ad9f6c20f61947f9ab30a8a884a0d2e359a6.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index bd4c8df..26e8824 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -2876,13 +2876,13 @@ EachloopCmd( /* Values */ if (TclHasInternalRep(objv[2+i*2],&tclArithSeriesType)) { /* Special case for Arith Series */ - statePtr->vCopyList[i] = TclArithSeriesObjCopy(interp, objv[2+i*2]); - if (statePtr->vCopyList[i] == NULL) { + statePtr->aCopyList[i] = TclArithSeriesObjCopy(interp, objv[2+i*2]); + if (statePtr->aCopyList[i] == NULL) { result = TCL_ERROR; goto done; } /* Don't compute values here, wait until the last momement */ - statePtr->argcList[i] = TclArithSeriesObjLength(statePtr->vCopyList[i]); + statePtr->argcList[i] = TclArithSeriesObjLength(statePtr->aCopyList[i]); } else { /* List values */ statePtr->aCopyList[i] = TclListObjCopy(interp, objv[2+i*2]); @@ -3015,12 +3015,12 @@ ForeachAssignments( Tcl_Obj *valuePtr, *varValuePtr; for (i=0 ; i<statePtr->numLists ; i++) { - int isarithseries = TclHasInternalRep(statePtr->vCopyList[i],&tclArithSeriesType); + int isarithseries = TclHasInternalRep(statePtr->aCopyList[i],&tclArithSeriesType); for (v=0 ; v<statePtr->varcList[i] ; v++) { k = statePtr->index[i]++; if (k < statePtr->argcList[i]) { if (isarithseries) { - if (TclArithSeriesObjIndex(statePtr->vCopyList[i], k, &valuePtr) != TCL_OK) { + if (TclArithSeriesObjIndex(statePtr->aCopyList[i], k, &valuePtr) != TCL_OK) { Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (setting %s loop variable \"%s\")", (statePtr->resultList != NULL ? "lmap" : "foreach"), |