diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-07-07 11:57:55 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-07-07 11:57:55 (GMT) |
| commit | 923c46cff773d6e11020ef95a279ce6010e7a6c8 (patch) | |
| tree | 8a52daeeeffe1dda4fcd72e1e04d418557ef6a55 /generic/tclExecute.c | |
| parent | 132c76a5dc5a5aac23f7678d07579b7424f34051 (diff) | |
| parent | 1eaea3fae79e9264901e7124703402183fb5c0cb (diff) | |
| download | tcl-923c46cff773d6e11020ef95a279ce6010e7a6c8.zip tcl-923c46cff773d6e11020ef95a279ce6010e7a6c8.tar.gz tcl-923c46cff773d6e11020ef95a279ce6010e7a6c8.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 98f1ed8..d3a0d32 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2766,7 +2766,7 @@ TEBCresume( */ auxObjList->length += objc - 1; - if ((objc > 1) && (auxObjList-length > 0)) { + if ((objc > 1) && (auxObjList->length > 0)) { length = auxObjList->length /* Total expansion room we need */ + codePtr->maxStackDepth /* Beyond the original max */ - CURR_DEPTH; /* Relative to where we are */ |