diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-02-14 20:30:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-02-14 20:30:13 (GMT) |
| commit | fa44b044329477881fa019cb851c184812368416 (patch) | |
| tree | 435da1656e27e8445d35aa383cb0135277b0528a | |
| parent | e39ebe63ed55f1fe9e30421ef4bcb28316bc0c0e (diff) | |
| download | tcl-fa44b044329477881fa019cb851c184812368416.zip tcl-fa44b044329477881fa019cb851c184812368416.tar.gz tcl-fa44b044329477881fa019cb851c184812368416.tar.bz2 | |
Const correctness fixes in the debug build.
| -rw-r--r-- | generic/tclExecute.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 0a86306..ca4312a 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.426 2009/02/10 22:50:00 nijtmans Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.427 2009/02/14 20:30:13 dgp Exp $ */ #include "tclInt.h" @@ -660,11 +660,11 @@ static int EvalStatsCmd(ClientData clientData, Tcl_Obj *const objv[]); #endif /* TCL_COMPILE_STATS */ #ifdef TCL_COMPILE_DEBUG -static const char * GetOpcodeName(unsigned char *pc); +static const char * GetOpcodeName(const unsigned char *pc); static void PrintByteCodeInfo(ByteCode *codePtr); static const char * StringForResultCode(int result); static void ValidatePcAndStackTop(ByteCode *codePtr, - unsigned char *pc, int stackTop, + const unsigned char *pc, int stackTop, int stackLowerBound, int checkStack); #endif /* TCL_COMPILE_DEBUG */ static void DeleteExecStack(ExecStack *esPtr); @@ -8053,7 +8053,7 @@ static void ValidatePcAndStackTop( register ByteCode *codePtr, /* The bytecode whose summary is printed to * stdout. */ - unsigned char *pc, /* Points to first byte of a bytecode + const unsigned char *pc, /* Points to first byte of a bytecode * instruction. The program counter. */ int stackTop, /* Current stack top. Must be between * stackLowerBound and stackUpperBound @@ -8446,7 +8446,7 @@ GetExceptRangeForPc( #ifdef TCL_COMPILE_DEBUG static const char * GetOpcodeName( - unsigned char *pc) /* Points to the instruction whose name should + const unsigned char *pc) /* Points to the instruction whose name should * be returned. */ { unsigned char opCode = *pc; |