summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2005-03-14 23:13:46 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2005-03-14 23:13:46 (GMT)
commitd54fffe6d7907d2806707a415320bc197a132bcd (patch)
tree5d847fa9475fafedc61b2b016b10d1b56b2d5cdf /generic
parent8085c3e9c03756597f58434b27f6ee5ef48333e2 (diff)
downloadtcl-d54fffe6d7907d2806707a415320bc197a132bcd.zip
tcl-d54fffe6d7907d2806707a415320bc197a132bcd.tar.gz
tcl-d54fffe6d7907d2806707a415320bc197a132bcd.tar.bz2
* generic/tclExecute.c: fixed INST_PUSH1's debugging code (wrong
obj ref passed to TRACE_WITH_OBJ).
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index f876063..d316293 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.171 2005/03/07 20:29:12 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.172 2005/03/14 23:14:08 msofer Exp $
*/
#include "tclInt.h"
@@ -1346,7 +1346,7 @@ TclExecuteByteCode(interp, codePtr)
instPush1Peephole:
#endif
PUSH_OBJECT(codePtr->objArrayPtr[TclGetUInt1AtPtr(pc+1)]);
- TRACE_WITH_OBJ(("%u => ", TclGetInt1AtPtr(pc+1)), *(tosPtr-1));
+ TRACE_WITH_OBJ(("%u => ", TclGetInt1AtPtr(pc+1)), *tosPtr);
pc += 2;
#if !TCL_COMPILE_DEBUG
/*