summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2009-05-16 03:43:56 (GMT)
committerdas <das>2009-05-16 03:43:56 (GMT)
commit2c662b5c9124de8ddab0d178bb7950d3633b96b4 (patch)
tree60d3a03e9702dde4fa009a2b982042b37de39ebd
parent11bd2610c43ddd48a8bbf6b2e594df74b4f2ac4c (diff)
downloadtcl-2c662b5c9124de8ddab0d178bb7950d3633b96b4.zip
tcl-2c662b5c9124de8ddab0d178bb7950d3633b96b4.tar.gz
tcl-2c662b5c9124de8ddab0d178bb7950d3633b96b4.tar.bz2
fix TCL_COMPILE_DEBUG 64bit warnings
-rw-r--r--generic/tclExecute.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index e6eff03..9b7784e 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.435 2009/05/08 01:02:26 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.436 2009/05/16 03:43:56 das Exp $
*/
#include "tclInt.h"
@@ -2046,7 +2046,7 @@ TclExecuteByteCode(
#ifdef TCL_COMPILE_DEBUG
if (tclTraceExec >= 2) {
PrintByteCodeInfo(codePtr);
- fprintf(stdout, " Starting stack top=%d\n", CURR_DEPTH);
+ fprintf(stdout, " Starting stack top=%d\n", (int) CURR_DEPTH);
fflush(stdout);
}
#endif
@@ -6979,7 +6979,7 @@ TclExecuteByteCode(
*(++catchTop) = CURR_DEPTH;
TRACE(("%u => catchTop=%d, stackTop=%d\n",
- TclGetUInt4AtPtr(pc+1), (catchTop - initCatchTop - 1),
+ TclGetUInt4AtPtr(pc+1), (int) (catchTop - initCatchTop - 1),
(int) CURR_DEPTH));
NEXT_INST_F(5, 0, 0);
@@ -6987,7 +6987,7 @@ TclExecuteByteCode(
catchTop--;
Tcl_ResetResult(interp);
result = TCL_OK;
- TRACE(("=> catchTop=%d\n", (catchTop - initCatchTop - 1)));
+ TRACE(("=> catchTop=%d\n", (int) (catchTop - initCatchTop - 1)));
NEXT_INST_F(1, 0, 0);
case INST_PUSH_RESULT:
@@ -7748,7 +7748,7 @@ TclExecuteByteCode(
if (traceInstructions) {
fprintf(stdout, " ... found catch at %d, catchTop=%d, "
"unwound to %ld, new pc %u\n",
- rangePtr->codeOffset, catchTop - initCatchTop - 1,
+ rangePtr->codeOffset, (int) (catchTop - initCatchTop - 1),
(long) *catchTop, (unsigned) rangePtr->catchOffset);
}
#endif