summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2015-12-12 11:54:33 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2015-12-12 11:54:33 (GMT)
commitf1d71456ca0ed0f306f2fdfbaf3668e506f41aa9 (patch)
tree02b61553925da55ce9bca746b100cabc8c292112
parentae04607901c12a74a8fc87f174e461640a4004d6 (diff)
downloadtcl-f1d71456ca0ed0f306f2fdfbaf3668e506f41aa9.zip
tcl-f1d71456ca0ed0f306f2fdfbaf3668e506f41aa9.tar.gz
tcl-f1d71456ca0ed0f306f2fdfbaf3668e506f41aa9.tar.bz2
Issue the correct auxType when compiling [array set].
-rw-r--r--generic/tclCompCmds.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 18da741..8d0e2f6 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -365,7 +365,7 @@ TclCompileArraySetCmd(
infoPtr->varLists[0]->numVars = 2;
infoPtr->varLists[0]->varIndexes[0] = keyVar;
infoPtr->varLists[0]->varIndexes[1] = valVar;
- infoIndex = TclCreateAuxData(infoPtr, &tclForeachInfoType, envPtr);
+ infoIndex = TclCreateAuxData(infoPtr, &tclNewForeachInfoType, envPtr);
/*
* Start issuing instructions to write to the array.