diff options
| author | dkf <dkf@noemail.net> | 2013-10-13 13:34:01 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2013-10-13 13:34:01 (GMT) |
| commit | 205e465b09ee3c4f9abdffd7b019ee7964df636e (patch) | |
| tree | 55ae0ba20fe7a6a086f84cdcda69c61171b4f4d4 /generic/tclCompile.c | |
| parent | 2b8665e83c75640575fb41cab23c889a12f05154 (diff) | |
| download | tcl-205e465b09ee3c4f9abdffd7b019ee7964df636e.zip tcl-205e465b09ee3c4f9abdffd7b019ee7964df636e.tar.gz tcl-205e465b09ee3c4f9abdffd7b019ee7964df636e.tar.bz2 | |
update comments
FossilOrigin-Name: 73671810e93bc53db5cc613094648c0f0723b63a
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 74a9c8c..68b7649 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -3901,6 +3901,27 @@ TclFixupForwardJump( return 1; /* the jump was grown */ } +/* + *---------------------------------------------------------------------- + * + * TclEmitInvoke -- + * + * Emit one of the invoke-related instructions, wrapping it if necessary + * in code that ensures that any break or continue operation passing + * through it gets the stack unwinding correct, converting it into an + * internal jump if in an appropriate context. + * + * Results: + * None + * + * Side effects: + * Issues the jump with all correct stack management. May create another + * loop exception range; pointers to ExceptionRange and ExceptionAux + * structures should not be held across this call. + * + *---------------------------------------------------------------------- + */ + void TclEmitInvoke( CompileEnv *envPtr, |