diff options
| author | nijtmans <nijtmans@noemail.net> | 2007-02-20 23:24:01 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans@noemail.net> | 2007-02-20 23:24:01 (GMT) |
| commit | 8304773d8b2ee19516ec98b7f43772b3e3cafd0b (patch) | |
| tree | 2fc3ee74f9099dbc66a0d0d154665561411fd654 /generic/tclLiteral.c | |
| parent | 3b0c004d36f5baf787ca1438ae23df0dc34cafc2 (diff) | |
| download | tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.zip tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.tar.gz tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.tar.bz2 | |
various "const" additions, in line with TIP #27
FossilOrigin-Name: 81ea4e1335f3c78465e90ec021758c096ba9b544
Diffstat (limited to 'generic/tclLiteral.c')
| -rw-r--r-- | generic/tclLiteral.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c index 949a3a2..d683177 100644 --- a/generic/tclLiteral.c +++ b/generic/tclLiteral.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLiteral.c,v 1.28 2006/08/10 12:15:31 dkf Exp $ + * RCS: @(#) $Id: tclLiteral.c,v 1.29 2007/02/20 23:24:03 nijtmans Exp $ */ #include "tclInt.h" @@ -33,7 +33,7 @@ static int AddLocalLiteralEntry(CompileEnv *envPtr, LiteralEntry *globalPtr, int localHash); static void ExpandLocalLiteralArray(CompileEnv *envPtr); -static unsigned int HashString(CONST char *bytes, int length); +static unsigned int HashString(const char *bytes, int length); static void RebuildLiteralTable(LiteralTable *tablePtr); /* @@ -104,7 +104,7 @@ TclCleanupLiteralTable( LiteralEntry* nextPtr; /* Pointer to the next entry in the bucket. */ Tcl_Obj* objPtr; /* Pointer to a literal object whose internal * rep is being freed. */ - Tcl_ObjType* typePtr; /* Pointer to the object's type. */ + const Tcl_ObjType* typePtr; /* Pointer to the object's type. */ int didOne; /* Flag for whether we've removed a literal in * the current bucket. */ @@ -822,7 +822,7 @@ TclReleaseLiteral( static unsigned int HashString( - register CONST char *bytes, /* String for which to compute hash value. */ + register const char *bytes, /* String for which to compute hash value. */ int length) /* Number of bytes in the string. */ { register unsigned int result; |