From f87dce59c2695416ac275e2b3807e7e43b45aac5 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 24 Jun 2004 09:05:46 +0000
Subject: Oops!

---
 generic/tclThreadStorage.c | 8 +++-----
 1 file 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;
 }
 
 /*
-- 
cgit v0.12