summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-01-22 06:42:33 (GMT)
committernijtmans <nijtmans>2009-01-22 06:42:33 (GMT)
commit1cc677fe337ed9c32c7a1bbaafc2988e98a8076f (patch)
tree6d0ba0d888c02ee1ac8ad6f7a50157036d96fbd9 /generic/tclCompile.c
parented5043f99afd5932ca7403cf20b19383d20dc9dc (diff)
downloadtcl-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.c8
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);