diff options
| author | stanton <stanton> | 1998-10-06 00:36:30 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-10-06 00:36:30 (GMT) |
| commit | 131dfa93542f43a3dce6378ab36d454e03c2c3f6 (patch) | |
| tree | 017450732c982d92279923589de3a97d5f32f7ba /generic/tclExecute.c | |
| parent | a20edf3e5b35f1218d239bd0e04699d2b0008683 (diff) | |
| download | tcl-131dfa93542f43a3dce6378ab36d454e03c2c3f6.zip tcl-131dfa93542f43a3dce6378ab36d454e03c2c3f6.tar.gz tcl-131dfa93542f43a3dce6378ab36d454e03c2c3f6.tar.bz2 | |
* tclExecute.c: fixed off-by-one copying error, fixed merge bugs
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 22320f7..d767522 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.1.2.2 1998/09/24 23:58:47 stanton Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.1.2.3 1998/10/06 00:36:30 stanton Exp $ */ #include "tclInt.h" @@ -774,7 +774,7 @@ TclExecuteByteCode(interp, codePtr) isUnknownCmd = 1; #endif /*TCL_COMPILE_DEBUG*/ stackTop++; /* need room for new inserted objv[0] */ - for (i = objc; i >= 0; i--) { + for (i = objc-1; i >= 0; i--) { objv[i+1] = objv[i]; } objc++; @@ -2903,11 +2903,12 @@ PrintByteCodeInfo(codePtr) * to stdout. */ { Proc *procPtr = codePtr->procPtr; + Interp *iPtr = (Interp *) *codePtr->interpHandle; fprintf(stdout, "\nExecuting ByteCode 0x%x, refCt %u, epoch %u, interp 0x%x (epoch %u)\n", (unsigned int) codePtr, codePtr->refCount, - codePtr->compileEpoch, (unsigned int) codePtr->iPtr, - codePtr->iPtr->compileEpoch); + codePtr->compileEpoch, (unsigned int) iPtr, + iPtr->compileEpoch); fprintf(stdout, " Source: "); TclPrintSource(stdout, codePtr->source, 60); |