summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-02-09 22:55:44 (GMT)
committernijtmans <nijtmans>2009-02-09 22:55:44 (GMT)
commit5ffa1f30e55d3d1b85da545dcc36aa8c482789e2 (patch)
treebb7845449193e2b881771084cd2979c9c2d8e557 /generic
parent3b7eb4d17e69ac774f55927c2086019d01e65967 (diff)
downloadtcl-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')
-rw-r--r--generic/tclCompile.c6
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;