summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-05-21 21:51:12 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-05-21 21:51:12 (GMT)
commitbd4bc2f7d4f66388f5cc87f8864c3fd9d426bde8 (patch)
tree0722e00290d7cce6c5b4ee545b945c5f20fbe9d0 /generic
parentcfa13d98b75f061041620fe58e5c2beca784d94d (diff)
downloadtcl-bd4bc2f7d4f66388f5cc87f8864c3fd9d426bde8.zip
tcl-bd4bc2f7d4f66388f5cc87f8864c3fd9d426bde8.tar.gz
tcl-bd4bc2f7d4f66388f5cc87f8864c3fd9d426bde8.tar.bz2
Make TCL_COMPILE_DEBUG path through TEBC work...
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 033e705..820f8ad 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.137 2004/05/21 21:31:03 dkf Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.138 2004/05/21 21:51:12 dkf Exp $
*/
#include "tclInt.h"
@@ -1164,7 +1164,6 @@ TclExecuteByteCode(interp, codePtr)
fprintf(stdout, " Starting stack top=%d\n", initStackTop);
fflush(stdout);
}
- opnd = 0; /* Init. avoids compiler warning. */
#endif
#ifdef TCL_COMPILE_STATS
@@ -1586,6 +1585,8 @@ TclExecuteByteCode(interp, codePtr)
#ifdef TCL_COMPILE_DEBUG
if (tclTraceExec >= 2) {
+ int i;
+
if (traceInstructions) {
strncpy(cmdNameBuf, TclGetString(objv[0]), 20);
TRACE(("%u => call ", objc));
@@ -2492,7 +2493,6 @@ TclExecuteByteCode(interp, codePtr)
if ((*pc == INST_JUMP_TRUE1) || (*pc == INST_JUMP_TRUE4)) {
TRACE(("%d => %.20s false\n", falseJmp, O2S(valuePtr)));
} else {
- opnd = pcAdjustment;
TRACE(("%d => %.20s false, new pc %u\n", falseJmp, O2S(valuePtr),
(unsigned int)(pc + falseJmp - codePtr->codeStart)));
}
@@ -4740,13 +4740,13 @@ TclExecuteByteCode(interp, codePtr)
#if TCL_COMPILE_DEBUG
} else if (traceInstructions) {
if ((result != TCL_ERROR) && (result != TCL_RETURN)) {
- objPtr = Tcl_GetObjResult(interp);
+ Tcl_Obj *objPtr = Tcl_GetObjResult(interp);
TRACE_APPEND(("OTHER RETURN CODE %d, result= \"%s\"\n ",
- result, O2S(objPtr)));
+ result, O2S(objPtr)));
} else {
- objPtr = Tcl_GetObjResult(interp);
+ Tcl_Obj *objPtr = Tcl_GetObjResult(interp);
TRACE_APPEND(("%s, result= \"%s\"\n",
- StringForResultCode(result), O2S(objPtr)));
+ StringForResultCode(result), O2S(objPtr)));
}
#endif
}