diff options
author | dgp <dgp@users.sourceforge.net> | 2013-10-22 17:17:39 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-10-22 17:17:39 (GMT) |
commit | 383b0c93290649b3988619f8fb9f9e0195c307be (patch) | |
tree | 89fcbc9b8686b2d43d8d02f18921b56bbbb19995 | |
parent | c9f1a01164017d046ecdf06d6365c71e005fa062 (diff) | |
download | tcl-383b0c93290649b3988619f8fb9f9e0195c307be.zip tcl-383b0c93290649b3988619f8fb9f9e0195c307be.tar.gz tcl-383b0c93290649b3988619f8fb9f9e0195c307be.tar.bz2 |
Complete the repair on the INST_POP removal.
-rw-r--r-- | generic/tclCompile.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index d9ff11e..126ceda 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -2126,6 +2126,7 @@ TclCompileScript( envPtr->cmdMapPtr[lastCmdIdx].numCodeBytes--; envPtr->codeNext--; #ifdef TCL_COMPILE_DEBUG + envPtr->cmdMapPtr[lastCmdIdx].numCodeBytes -= 5; envPtr->codeNext -= 5; #endif envPtr->currStackDepth++; |