summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormig <mig>2013-12-05 17:18:54 (GMT)
committermig <mig>2013-12-05 17:18:54 (GMT)
commitff9c2d4ad9a37c50a4921bada422365ae85d5ac1 (patch)
treef87845c0b771de38c9bdb2c01f44df3974d61356
parent631b9c724ec78675e289d7f1dec92dc7d5165fc2 (diff)
downloadtcl-ff9c2d4ad9a37c50a4921bada422365ae85d5ac1.zip
tcl-ff9c2d4ad9a37c50a4921bada422365ae85d5ac1.tar.gz
tcl-ff9c2d4ad9a37c50a4921bada422365ae85d5ac1.tar.bz2
add comments on INST_FOREACH_*
-rw-r--r--generic/tclExecute.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 191a897..fe05b30 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -6259,6 +6259,7 @@ TEBCresume(
pc += 5 - infoPtr->loopCtTemp;
case INST_FOREACH_STEP:
+ /* THIS INSTRUCTION IS ONLY CALLED AS A CONTINUE TARGET */
/*
* "Step" a foreach loop (i.e., begin its next iteration) by assigning
* the next value list element to each loop var.
@@ -6341,6 +6342,7 @@ TEBCresume(
pc++;
case INST_FOREACH_END:
+ /* THIS INSTRUCTION IS ONLY CALLED AS A BREAK TARGET */
tmpPtr = OBJ_AT_TOS;
infoPtr = tmpPtr->internalRep.otherValuePtr;
numLists = infoPtr->numLists;