diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:43:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:43:01 (GMT) |
| commit | acd32d6e7090b829a7d5e1aec2e6b09f987aaccc (patch) | |
| tree | a2f7c0d0d95b1a20e0c32dc3bff0a88ad2b56fd9 /generic | |
| parent | 55deb86ee331985bbfedb4d5211968c4dbe1decd (diff) | |
| download | tcl-acd32d6e7090b829a7d5e1aec2e6b09f987aaccc.zip tcl-acd32d6e7090b829a7d5e1aec2e6b09f987aaccc.tar.gz tcl-acd32d6e7090b829a7d5e1aec2e6b09f987aaccc.tar.bz2 | |
Next attempt. Appears to have uncovered a bug.
Diffstat (limited to 'generic')
| -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 7ed9006..13318a3 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -1467,7 +1467,7 @@ CompileDictEachCmd( * Compile the loop body itself. It should be stack-neutral. */ - SetLineInformation(3); + LineInformation(3); CompileBody(envPtr, bodyTokenPtr, interp); if (collect == TCL_EACH_COLLECT) { Emit14Inst( INST_LOAD_SCALAR, keyVarIndex, envPtr); |