summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmds.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-19 15:05:55 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-19 15:05:55 (GMT)
commit100b2b2e05bfa69635582926388fe5b9adc6baa3 (patch)
tree966b73ff43ff8a55beeaa03c75d6b657e49a082f /generic/tclCompCmds.c
parent81c1f15aff0ed7ab5c3e6ff85071787619f7ed45 (diff)
parent68feed9f4e09c3677ca335a790e197df2bdc5cf5 (diff)
downloadtcl-100b2b2e05bfa69635582926388fe5b9adc6baa3.zip
tcl-100b2b2e05bfa69635582926388fe5b9adc6baa3.tar.gz
tcl-100b2b2e05bfa69635582926388fe5b9adc6baa3.tar.bz2
Line numbers wrong in compiled [dict update].
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r--generic/tclCompCmds.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 45e856f..9829b9c 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -1633,7 +1633,7 @@ TclCompileDictUpdateCmd(
infoIndex = TclCreateAuxData(duiPtr, &tclDictUpdateInfoType, envPtr);
for (i=0 ; i<numVars ; i++) {
- CompileWord(envPtr, keyTokenPtrs[i], interp, i);
+ CompileWord(envPtr, keyTokenPtrs[i], interp, 2*i+2);
}
TclEmitInstInt4( INST_LIST, numVars, envPtr);
TclEmitInstInt4( INST_DICT_UPDATE_START, dictIndex, envPtr);