diff options
| author | das <das> | 2008-10-07 01:15:34 (GMT) |
|---|---|---|
| committer | das <das> | 2008-10-07 01:15:34 (GMT) |
| commit | aa8ac25730e2c1af6b8922b8368929939fa55e60 (patch) | |
| tree | b22f575f43482185398cc6783efa9f2372b02de8 | |
| parent | af47e3597ac0c6bd70fb6a372866b0f7f1334f79 (diff) | |
| download | tcl-aa8ac25730e2c1af6b8922b8368929939fa55e60.zip tcl-aa8ac25730e2c1af6b8922b8368929939fa55e60.tar.gz tcl-aa8ac25730e2c1af6b8922b8368929939fa55e60.tar.bz2 | |
fix warnings from 2008-10-05 constification
| -rw-r--r-- | generic/tclExecute.c | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 1275aed..a8c55fa 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.413 2008/10/05 20:47:52 nijtmans Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.414 2008/10/07 01:15:34 das Exp $ */ #include "tclInt.h" @@ -391,19 +391,21 @@ VarHashCreateVar( #define TCL_DTRACE_INST_NEXT() \ if (TCL_DTRACE_INST_DONE_ENABLED()) {\ if (curInstName) {\ - TCL_DTRACE_INST_DONE(curInstName, (int) CURR_DEPTH, tosPtr);\ + TCL_DTRACE_INST_DONE((char* ) curInstName, (int) CURR_DEPTH,\ + tosPtr);\ }\ curInstName = tclInstructionTable[*pc].name;\ if (TCL_DTRACE_INST_START_ENABLED()) {\ - TCL_DTRACE_INST_START(curInstName, (int) CURR_DEPTH, tosPtr);\ + TCL_DTRACE_INST_START((char*) curInstName, (int) CURR_DEPTH,\ + tosPtr);\ }\ } else if (TCL_DTRACE_INST_START_ENABLED()) {\ - TCL_DTRACE_INST_START(tclInstructionTable[*pc].name, (int) CURR_DEPTH,\ - tosPtr);\ + TCL_DTRACE_INST_START((char*) tclInstructionTable[*pc].name,\ + (int) CURR_DEPTH, tosPtr);\ } #define TCL_DTRACE_INST_LAST() \ if (TCL_DTRACE_INST_DONE_ENABLED() && curInstName) {\ - TCL_DTRACE_INST_DONE(curInstName, (int) CURR_DEPTH, tosPtr);\ + TCL_DTRACE_INST_DONE((char*) curInstName, (int) CURR_DEPTH, tosPtr);\ } /* |