diff options
| author | mig <mig> | 2013-12-05 17:18:54 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-05 17:18:54 (GMT) |
| commit | ff9c2d4ad9a37c50a4921bada422365ae85d5ac1 (patch) | |
| tree | f87845c0b771de38c9bdb2c01f44df3974d61356 | |
| parent | 631b9c724ec78675e289d7f1dec92dc7d5165fc2 (diff) | |
| download | tcl-ff9c2d4ad9a37c50a4921bada422365ae85d5ac1.zip tcl-ff9c2d4ad9a37c50a4921bada422365ae85d5ac1.tar.gz tcl-ff9c2d4ad9a37c50a4921bada422365ae85d5ac1.tar.bz2 | |
add comments on INST_FOREACH_*
| -rw-r--r-- | generic/tclExecute.c | 2 |
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; |