diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-12 14:40:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-12 14:40:12 (GMT) |
| commit | a5748bcfeaed4a02c8b11829a0ea0a13dceb8ff9 (patch) | |
| tree | 8160d7f7f3f65ca19b5b22fd16ce872dcc7d0da2 /generic/tclObj.c | |
| parent | f01fb783f1afd8768dbd42908789383213d06682 (diff) | |
| parent | 1f93e78598609897fe4b42ebbeea728336dc17aa (diff) | |
| download | tcl-a5748bcfeaed4a02c8b11829a0ea0a13dceb8ff9.zip tcl-a5748bcfeaed4a02c8b11829a0ea0a13dceb8ff9.tar.gz tcl-a5748bcfeaed4a02c8b11829a0ea0a13dceb8ff9.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 16afaa5..af1b4c9 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -4049,15 +4049,15 @@ TclFreeObjEntry( *---------------------------------------------------------------------- */ -unsigned int +TCL_HASH_TYPE TclHashObjKey( Tcl_HashTable *tablePtr, /* Hash table. */ void *keyPtr) /* Key from which to compute hash value. */ { Tcl_Obj *objPtr = keyPtr; - int length; - const char *string = TclGetStringFromObj(objPtr, &length); - unsigned int result = 0; + const char *string = TclGetString(objPtr); + size_t length = objPtr->length; + TCL_HASH_TYPE result = 0; /* * I tried a zillion different hash functions and asked many other people |