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 | |
| 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
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tclCompile.c | 6 |
2 files changed, 7 insertions, 3 deletions
@@ -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; |