diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-06-24 09:05:46 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-06-24 09:05:46 (GMT) |
| commit | f87dce59c2695416ac275e2b3807e7e43b45aac5 (patch) | |
| tree | 761fb42fffb91a5728753efc75b3fdac7c877a16 | |
| parent | 2ae93b5703cfbffadf3908f7c3187f026fd6931e (diff) | |
| download | tcl-f87dce59c2695416ac275e2b3807e7e43b45aac5.zip tcl-f87dce59c2695416ac275e2b3807e7e43b45aac5.tar.gz tcl-f87dce59c2695416ac275e2b3807e7e43b45aac5.tar.bz2 | |
Oops!
| -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; } /* |