diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-19 15:04:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 15:04:47 (GMT) |
| commit | e4dfb0d689c07715c52b1a8b95391e5af075c02f (patch) | |
| tree | 50d9dfaabeaa6ad00cbc0faa2aa15af6c593c48e /generic/tclCompCmds.c | |
| parent | 7887926261176ebf53677f83fa051cb4cfcc2cf7 (diff) | |
| download | tcl-e4dfb0d689c07715c52b1a8b95391e5af075c02f.zip tcl-e4dfb0d689c07715c52b1a8b95391e5af075c02f.tar.gz tcl-e4dfb0d689c07715c52b1a8b95391e5af075c02f.tar.bz2 | |
Line numbers wrong in compiled [dict update].
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 348910c..51a566e 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -1159,7 +1159,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); |