diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-12 13:44:26 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-12 13:44:26 (GMT) |
commit | 71e7049f8ea65780583e847f2b3055b519395517 (patch) | |
tree | ed2a2c3cdb9d99794e2c09daee427b78362051b3 /generic/tclObj.c | |
parent | 7ad31bb0a3bc7e0e2a4a4ce4c6f05eb21f250f64 (diff) | |
download | tcl-71e7049f8ea65780583e847f2b3055b519395517.zip tcl-71e7049f8ea65780583e847f2b3055b519395517.tar.gz tcl-71e7049f8ea65780583e847f2b3055b519395517.tar.bz2 |
Make hash type changable by compiling with -DTCL_HASH_TYPE=size_t (for example). Default (unsigned) cannot be changed in Tcl 8.x, that must wait until Tcl 9.
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 776b034..0cd7839 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -4048,7 +4048,7 @@ TclFreeObjEntry( *---------------------------------------------------------------------- */ -unsigned int +TCL_HASH_TYPE TclHashObjKey( Tcl_HashTable *tablePtr, /* Hash table. */ void *keyPtr) /* Key from which to compute hash value. */ @@ -4098,7 +4098,7 @@ TclHashObjKey( result += (result << 3) + UCHAR(*++string); } } - return result; + return (TCL_HASH_TYPE) result; } /* |