diff options
| author | mig <mig> | 2013-12-05 16:01:16 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-05 16:01:16 (GMT) |
| commit | 631b9c724ec78675e289d7f1dec92dc7d5165fc2 (patch) | |
| tree | 3fb8b8cbefb8760f02af6f431e71d425015690e0 | |
| parent | 8f8438c53e0a086672a12fec00764d770323caed (diff) | |
| download | tcl-631b9c724ec78675e289d7f1dec92dc7d5165fc2.zip tcl-631b9c724ec78675e289d7f1dec92dc7d5165fc2.tar.gz tcl-631b9c724ec78675e289d7f1dec92dc7d5165fc2.tar.bz2 | |
add comments on field "misuse"
| -rw-r--r-- | generic/tclCompCmds.c | 2 | ||||
| -rw-r--r-- | generic/tclExecute.c | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index e934d92..78c6c5a 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -2677,7 +2677,7 @@ CompileEachloopCmd( /* * Set the jumpback distance from INST_FOREACH_STEP to the start of the - * body's code + * body's code. Misuse loopCtTemp for storing the jump size. */ jumpBackOffset = envPtr->exceptArrayPtr[range].continueOffset - diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 32b64a2..191a897 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -6331,6 +6331,7 @@ TEBCresume( } listTmpDepth--; } + /* loopCtTemp being 'misused' for storing the jump size */ NEXT_INST_F(infoPtr->loopCtTemp, 0, 0); } |