diff options
| author | nijtmans <nijtmans> | 2009-01-22 06:42:33 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-01-22 06:42:33 (GMT) |
| commit | 1cc677fe337ed9c32c7a1bbaafc2988e98a8076f (patch) | |
| tree | 6d0ba0d888c02ee1ac8ad6f7a50157036d96fbd9 /generic/tclCompile.c | |
| parent | ed5043f99afd5932ca7403cf20b19383d20dc9dc (diff) | |
| download | tcl-1cc677fe337ed9c32c7a1bbaafc2988e98a8076f.zip tcl-1cc677fe337ed9c32c7a1bbaafc2988e98a8076f.tar.gz tcl-1cc677fe337ed9c32c7a1bbaafc2988e98a8076f.tar.bz2 | |
CONSTify TclPrintInstruction and TclpNativeJoinPath (TIP #27)
{unix win} in *.decls is equivalent to {generic}
tclGetDate.y, tclDate.c: single internal const decoration
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index d93e321..8e68d7d 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.164 2009/01/09 11:21:45 dkf Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.165 2009/01/22 06:42:33 nijtmans Exp $ */ #include "tclInt.h" @@ -2151,7 +2151,7 @@ TclFindCompiledLocal( */ LocalCache *cachePtr = envPtr->iPtr->varFramePtr->localCachePtr; - char *localName; + const char *localName; Tcl_Obj **varNamePtr; int len; @@ -3368,7 +3368,7 @@ TclPrintByteCodeObj( int TclPrintInstruction( 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; int numBytes; @@ -3839,7 +3839,7 @@ FormatInstruction( } } if (suffixObj) { - char *bytes; + const char *bytes; int length; Tcl_AppendToObj(bufferObj, "\t# ", -1); |