diff options
| author | dgp <dgp@noemail.net> | 2009-07-16 21:24:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2009-07-16 21:24:37 (GMT) |
| commit | 3dddcda47ebfad3b6150f5a4d31d1e677cf55938 (patch) | |
| tree | 2212f61d925aabd55784a55ed9182b092a9bf383 /generic/tclHash.c | |
| parent | 50110cab6cb49be574d52f3dd827c06cca7cdc49 (diff) | |
| download | tcl-3dddcda47ebfad3b6150f5a4d31d1e677cf55938.zip tcl-3dddcda47ebfad3b6150f5a4d31d1e677cf55938.tar.gz tcl-3dddcda47ebfad3b6150f5a4d31d1e677cf55938.tar.bz2 | |
* generic/tclBinary.c: Removed unused variables.
* generic/tclCmdIL.c:
* generic/tclCompile.c:
* generic/tclExecute.c:
* generic/tclHash.c:
* generic/tclIOUtil.c:
* generic/tclVar.c:
* generic/tclBasic.c: Silence compiler warnings about ClientData.
* generic/tclProc.c:
* generic/tclScan.c: Typo in ACCEPT_NAN configuration.
* generic/tclStrToD.c: Set floating point control register on
MIPS systems so that the gradual underflow expected by Tcl is
in effect. [Bug 2819200]
FossilOrigin-Name: b0e94fe52cf1bae5acfd5a9ed00d80e25c680b3c
Diffstat (limited to 'generic/tclHash.c')
| -rw-r--r-- | generic/tclHash.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/generic/tclHash.c b/generic/tclHash.c index 218d8e1..9ed941e 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.38 2009/01/09 11:21:45 dkf Exp $ + * RCS: @(#) $Id: tclHash.c,v 1.39 2009/07/16 21:24:39 dgp Exp $ */ #include "tclInt.h" @@ -624,18 +624,6 @@ Tcl_HashStats( double average, tmp; register Tcl_HashEntry *hPtr; char *result, *p; - const Tcl_HashKeyType *typePtr; - - if (tablePtr->keyType == TCL_STRING_KEYS) { - typePtr = &tclStringHashKeyType; - } else if (tablePtr->keyType == TCL_ONE_WORD_KEYS) { - typePtr = &tclOneWordHashKeyType; - } else if (tablePtr->keyType == TCL_CUSTOM_TYPE_KEYS - || tablePtr->keyType == TCL_CUSTOM_PTR_KEYS) { - typePtr = tablePtr->typePtr; - } else { - typePtr = &tclArrayHashKeyType; - } /* * Compute a histogram of bucket usage. |