diff options
| author | mig <mig> | 2013-12-05 17:18:54 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-05 17:18:54 (GMT) |
| commit | b195b458489ac87c42d50ed3f8f8e529208ecda7 (patch) | |
| tree | f87845c0b771de38c9bdb2c01f44df3974d61356 | |
| parent | d4c2352c272018c182366cf571aeaaff813456e7 (diff) | |
| download | tcl-b195b458489ac87c42d50ed3f8f8e529208ecda7.zip tcl-b195b458489ac87c42d50ed3f8f8e529208ecda7.tar.gz tcl-b195b458489ac87c42d50ed3f8f8e529208ecda7.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; |