summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormig <mig>2013-12-05 16:01:16 (GMT)
committermig <mig>2013-12-05 16:01:16 (GMT)
commit631b9c724ec78675e289d7f1dec92dc7d5165fc2 (patch)
tree3fb8b8cbefb8760f02af6f431e71d425015690e0
parent8f8438c53e0a086672a12fec00764d770323caed (diff)
downloadtcl-631b9c724ec78675e289d7f1dec92dc7d5165fc2.zip
tcl-631b9c724ec78675e289d7f1dec92dc7d5165fc2.tar.gz
tcl-631b9c724ec78675e289d7f1dec92dc7d5165fc2.tar.bz2
add comments on field "misuse"
-rw-r--r--generic/tclCompCmds.c2
-rw-r--r--generic/tclExecute.c1
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);
}