diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-01 21:05:55 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-01 21:05:55 (GMT) |
| commit | d09727e7ff46a2abd069caac727159c92f6c9436 (patch) | |
| tree | f513d78c6d5a0417959e2f49d777012a853850e7 /generic/tclCompile.h | |
| parent | 8d03d462d4d27ee4a2d6fec72a8d2efe9e90f94a (diff) | |
| download | tcl-d09727e7ff46a2abd069caac727159c92f6c9436.zip tcl-d09727e7ff46a2abd069caac727159c92f6c9436.tar.gz tcl-d09727e7ff46a2abd069caac727159c92f6c9436.tar.bz2 | |
Getting better at doing more efficient break/continue instruction handling.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index c380823..c9cbbd4 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -318,6 +318,10 @@ typedef struct CompileEnv { * inefficient. If set to 2, that instruction * should not be issued at all (by the generic * part of the command compiler). */ + int expandCount; /* Number of INST_EXPAND_START instructions + * encountered that have not yet been paired + * with a corresponding + * INST_INVOKE_EXPANDED. */ ContLineLoc *clLoc; /* If not NULL, the table holding the * locations of the invisible continuation * lines in the input script, to adjust the @@ -990,6 +994,8 @@ MODULE_SCOPE void TclInitCompileEnv(Tcl_Interp *interp, int numBytes, const CmdFrame *invoker, int word); MODULE_SCOPE void TclInitJumpFixupArray(JumpFixupArray *fixupArrayPtr); MODULE_SCOPE void TclInitLiteralTable(LiteralTable *tablePtr); +MODULE_SCOPE ExceptionRange *TclGetInnermostExceptionRange(CompileEnv *envPtr, + int *depthPtr); #ifdef TCL_COMPILE_STATS MODULE_SCOPE char * TclLiteralStats(LiteralTable *tablePtr); MODULE_SCOPE int TclLog2(int value); |