From 5ffa1f30e55d3d1b85da545dcc36aa8c482789e2 Mon Sep 17 00:00:00 2001
From: nijtmans <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 <nijtmans@users.sf.net>
+ * generic/tclCompile.c fix [Bug 2555129] const compiler
+ warning (as error) in tclCompile.c
+
2009-02-07 Donal K. Fellows <dkf@users.sf.net>
* 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