diff options
| author | nijtmans <nijtmans@noemail.net> | 2008-10-15 06:17:03 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans@noemail.net> | 2008-10-15 06:17:03 (GMT) |
| commit | f09a58e596010da1f79151e45b13a63ed1fb652e (patch) | |
| tree | 20cca6f694fead4ac88a820249260a91c18a3387 /generic/tclHash.c | |
| parent | 08c47d5992d5b1d74fac766a534cdf633354aec6 (diff) | |
| download | tcl-f09a58e596010da1f79151e45b13a63ed1fb652e.zip tcl-f09a58e596010da1f79151e45b13a63ed1fb652e.tar.gz tcl-f09a58e596010da1f79151e45b13a63ed1fb652e.tar.bz2 | |
Add "const" to many internal
const tables, so those will be
put by the C-compiler in the
TEXT segment in stead of the
DATA segment. This makes those
table sharable in shared libraries.
FossilOrigin-Name: 8fcbc25d98c79d16b8fb798cfe37aa513d5f5067
Diffstat (limited to 'generic/tclHash.c')
| -rw-r--r-- | generic/tclHash.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclHash.c b/generic/tclHash.c index bf1a87a..dd995f0 100644 --- a/generic/tclHash.c +++ b/generic/tclHash.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclHash.c,v 1.35 2008/10/04 11:51:25 nijtmans Exp $ + * RCS: @(#) $Id: tclHash.c,v 1.36 2008/10/15 06:17:03 nijtmans Exp $ */ #include "tclInt.h" @@ -76,7 +76,7 @@ static Tcl_HashEntry * BogusCreate(Tcl_HashTable *tablePtr, const char *key, int *newPtr); static void RebuildTable(Tcl_HashTable *tablePtr); -Tcl_HashKeyType tclArrayHashKeyType = { +const Tcl_HashKeyType tclArrayHashKeyType = { TCL_HASH_KEY_TYPE_VERSION, /* version */ TCL_HASH_KEY_RANDOMIZE_HASH, /* flags */ HashArrayKey, /* hashKeyProc */ @@ -85,7 +85,7 @@ Tcl_HashKeyType tclArrayHashKeyType = { NULL /* freeEntryProc */ }; -Tcl_HashKeyType tclOneWordHashKeyType = { +const Tcl_HashKeyType tclOneWordHashKeyType = { TCL_HASH_KEY_TYPE_VERSION, /* version */ 0, /* flags */ NULL, /* HashOneWordKey, */ /* hashProc */ @@ -94,7 +94,7 @@ Tcl_HashKeyType tclOneWordHashKeyType = { NULL /* FreeOneWordKey, */ /* freeEntryProc */ }; -Tcl_HashKeyType tclStringHashKeyType = { +const Tcl_HashKeyType tclStringHashKeyType = { TCL_HASH_KEY_TYPE_VERSION, /* version */ 0, /* flags */ HashStringKey, /* hashKeyProc */ |