diff options
| author | nijtmans <nijtmans> | 2009-02-09 22:55:44 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-02-09 22:55:44 (GMT) |
| commit | 5ffa1f30e55d3d1b85da545dcc36aa8c482789e2 (patch) | |
| tree | bb7845449193e2b881771084cd2979c9c2d8e557 /generic/tclCompile.c | |
| parent | 3b7eb4d17e69ac774f55927c2086019d01e65967 (diff) | |
| download | tcl-5ffa1f30e55d3d1b85da545dcc36aa8c482789e2.zip tcl-5ffa1f30e55d3d1b85da545dcc36aa8c482789e2.tar.gz tcl-5ffa1f30e55d3d1b85da545dcc36aa8c482789e2.tar.bz2 | |
fix [Bug 2555129] const compiler
warning (as error) in tclCompile.c
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 8e68d7d..63a95aa 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.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: tclCompile.c,v 1.165 2009/01/22 06:42:33 nijtmans Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.166 2009/02/09 22:55:44 nijtmans Exp $ */ #include "tclInt.h" @@ -422,7 +422,7 @@ static void RecordByteCodeStats(ByteCode *codePtr); static int SetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static int FormatInstruction(ByteCode *codePtr, - unsigned char *pc, Tcl_Obj *bufferObj); + const unsigned char *pc, Tcl_Obj *bufferObj); static void PrintSourceToObj(Tcl_Obj *appendObj, const char *stringPtr, int maxChars); /* @@ -3738,7 +3738,7 @@ TclDisassembleByteCodeObj( static int FormatInstruction( ByteCode *codePtr, /* Bytecode containing the instruction. */ - unsigned char *pc, /* Points to first byte of instruction. */ + const unsigned char *pc, /* Points to first byte of instruction. */ Tcl_Obj *bufferObj) /* Object to append instruction info to. */ { Proc *procPtr = codePtr->procPtr; |