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/tclCompCmdsGR.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/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 43ea3d3..3efcba7 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2480,6 +2480,7 @@ TclCompileReturnCmd( * emit the INST_RETURN_IMM instruction with code and level as operands. */ + // TODO: when (code==TCL_BREAK || code==TCL_CONTINUE)&&(level==0&&size==0), check for stack balance and jump opportunities CompileReturnInternal(envPtr, INST_RETURN_IMM, code, level, returnOpts); return TCL_OK; |