diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-23 18:32:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-23 18:32:17 (GMT) |
| commit | c3ba85a17b5051093a6ed4290f7b8f3e424be236 (patch) | |
| tree | 6282fcbeda8091900bc7600acae7bdba8824a3d1 /generic/tclBasic.c | |
| parent | 959c0b7ee6f676289f4bcb26638947b88e7d576b (diff) | |
| parent | 3b06f70775be10c7547c05c27e55d4ef0a65ee0c (diff) | |
| download | tcl-c3ba85a17b5051093a6ed4290f7b8f3e424be236.zip tcl-c3ba85a17b5051093a6ed4290f7b8f3e424be236.tar.gz tcl-c3ba85a17b5051093a6ed4290f7b8f3e424be236.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 8d77cc5..7c02706 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -526,6 +526,9 @@ Tcl_CreateInterp(void) iPtr->hiddenCmdTablePtr = NULL; iPtr->interpInfo = NULL; + TCL_CT_ASSERT(sizeof(iPtr->extra) <= sizeof(Tcl_HashTable)); + iPtr->extra.optimizer = TclOptimizeBytecode; + iPtr->numLevels = 0; iPtr->maxNestingDepth = MAX_NESTING_DEPTH; iPtr->framePtr = NULL; /* Initialise as soon as :: is available */ |