diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-21 22:03:30 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-21 22:03:30 (GMT) |
| commit | 2c3dca073b5a22d1dd3363317896f8f561d77125 (patch) | |
| tree | 971d57aa15237a198103920d687c492c2e38805f /generic/tclExecute.c | |
| parent | bd4bc2f7d4f66388f5cc87f8864c3fd9d426bde8 (diff) | |
| download | tcl-2c3dca073b5a22d1dd3363317896f8f561d77125.zip tcl-2c3dca073b5a22d1dd3363317896f8f561d77125.tar.gz tcl-2c3dca073b5a22d1dd3363317896f8f561d77125.tar.bz2 | |
One more fix; this time it really does let this file build...
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 820f8ad..7d83f86 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -11,7 +11,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.138 2004/05/21 21:51:12 dkf Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.139 2004/05/21 22:03:30 dkf Exp $ */ #include "tclInt.h" @@ -4675,27 +4675,33 @@ TclExecuteByteCode(interp, codePtr) Tcl_Obj *valuePtr; char *bytes; int length; - - +#if TCL_COMPILE_DEBUG + int opnd; +#endif + /* * An external evaluation (INST_INVOKE or INST_EVAL) returned * something different from TCL_OK, or else INST_BREAK or * INST_CONTINUE were called. */ - + processExceptionReturn: #if TCL_COMPILE_DEBUG switch (*pc) { case INST_INVOKE_STK1: + opnd = TclGetUInt1AtPtr(pc+1); + TRACE(("%u => ... after \"%.20s\": ", opnd, cmdNameBuf)); + break; case INST_INVOKE_STK4: + opnd = TclGetUInt4AtPtr(pc+1); TRACE(("%u => ... after \"%.20s\": ", opnd, cmdNameBuf)); break; case INST_EVAL_STK: - /* - * Note that the object at stacktop has to be used - * before doing the cleanup. - */ - + /* + * Note that the object at stacktop has to be used + * before doing the cleanup. + */ + TRACE(("\"%.30s\" => ", O2S(*tosPtr))); break; default: |