summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2009-12-08 19:00:24 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2009-12-08 19:00:24 (GMT)
commit5291a66f405cc624cacbafb313ad1a5c0e34e3a5 (patch)
tree7ed079cfc6f15f5dc8c5284986d61ce82d0b73dd /generic/tclExecute.c
parent812ad65c885e1e9c369e1704cb19e7f3dea8e162 (diff)
downloadtcl-5291a66f405cc624cacbafb313ad1a5c0e34e3a5.zip
tcl-5291a66f405cc624cacbafb313ad1a5c0e34e3a5.tar.gz
tcl-5291a66f405cc624cacbafb313ad1a5c0e34e3a5.tar.bz2
* generic/tclExecute.c (TEBC): silence warning about pcAdjustment
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index e552dad..d8cd7f6 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,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.453 2009/12/08 13:58:04 dkf Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.454 2009/12/08 19:00:25 msofer Exp $
*/
#include "tclInt.h"
@@ -2797,6 +2797,8 @@ TclExecuteByteCode(
int type = PTR2INT(callbackPtr->data[0]);
ClientData param = callbackPtr->data[1];
+ pcAdjustment = 0; /* silence warning */
+
NRE_ASSERT(callbackPtr != BP->rootPtr);
NRE_ASSERT(callbackPtr->procPtr == NRCallTEBC);