diff options
author | dkf <dkf@noemail.net> | 2004-06-24 09:05:46 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2004-06-24 09:05:46 (GMT) |
commit | f624c6bc5899840e0568754e10ace4e92bce6c90 (patch) | |
tree | 761fb42fffb91a5728753efc75b3fdac7c877a16 /generic/tclThreadStorage.c | |
parent | 58d9983c0d20b008d6deb435a331d4954f2b5829 (diff) | |
download | tcl-f624c6bc5899840e0568754e10ace4e92bce6c90.zip tcl-f624c6bc5899840e0568754e10ace4e92bce6c90.tar.gz tcl-f624c6bc5899840e0568754e10ace4e92bce6c90.tar.bz2 |
Oops!
FossilOrigin-Name: 928e22066f30b019696a2f50e5854c233ae6b6fa
Diffstat (limited to 'generic/tclThreadStorage.c')
-rw-r--r-- | generic/tclThreadStorage.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/generic/tclThreadStorage.c b/generic/tclThreadStorage.c index bf41adb..7eb66be 100644 --- a/generic/tclThreadStorage.c +++ b/generic/tclThreadStorage.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclThreadStorage.c,v 1.3 2004/06/24 08:58:40 dkf Exp $ + * RCS: @(#) $Id: tclThreadStorage.c,v 1.4 2004/06/24 09:05:46 dkf Exp $ */ #include "tclInt.h" @@ -618,16 +618,15 @@ TclThreadStorageDataKeyGet(keyPtr) * really (int **) */ { int *indexPtr = *(int **)keyPtr; - void *result; if (indexPtr == NULL) { return NULL; } else { Tcl_HashTable *hashTablePtr = - TclThreadStorageGetHashTable(Tcl_GetCurrentThread();); + TclThreadStorageGetHashTable(Tcl_GetCurrentThread()); Tcl_HashEntry *hPtr; - if (hashTablePtr != NULL) { + if (hashTablePtr == NULL) { Tcl_Panic("TclThreadStorageGetHashTable failed from " "TclThreadStorageDataKeyGet!"); } @@ -639,7 +638,6 @@ TclThreadStorageDataKeyGet(keyPtr) } return (void *)Tcl_GetHashValue(hPtr); } - return result; } /* |