From 5ffa1f30e55d3d1b85da545dcc36aa8c482789e2 Mon Sep 17 00:00:00 2001 From: nijtmans Date: Mon, 9 Feb 2009 22:55:44 +0000 Subject: fix [Bug 2555129] const compiler warning (as error) in tclCompile.c --- ChangeLog | 4 ++++ generic/tclCompile.c | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 094901f..d6b1cd7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2009-02-05 Jan Nijtmans + * generic/tclCompile.c fix [Bug 2555129] const compiler + warning (as error) in tclCompile.c + 2009-02-07 Donal K. Fellows * generic/tclZlib.c (TclZlibCmd): [Bug 2573172]: Ensure that when 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; -- cgit v0.12