From 6bcdb8cdff308f7ecf6a5cb6e0b10a3dce464956 Mon Sep 17 00:00:00 2001
From: "dgp@users.sourceforge.net" <dgp>
Date: Wed, 20 Apr 2011 12:54:34 +0000
Subject: Silence unused variable warning

---
 generic/tclHash.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/generic/tclHash.c b/generic/tclHash.c
index b5baf22..e7ee344 100644
--- a/generic/tclHash.c
+++ b/generic/tclHash.c
@@ -1147,7 +1147,6 @@ RebuildTable(tablePtr)
     register Tcl_HashEntry **oldChainPtr, **newChainPtr;
     register Tcl_HashEntry *hPtr;
     Tcl_HashKeyType *typePtr;
-    VOID *key;
 
     oldSize = tablePtr->numBuckets;
     oldBuckets = tablePtr->buckets;
@@ -1201,7 +1200,7 @@ RebuildTable(tablePtr)
 	    hPtr->nextPtr = tablePtr->buckets[index];
 	    tablePtr->buckets[index] = hPtr;
 #else
-	    key = (VOID *) Tcl_GetHashKey (tablePtr, hPtr);
+	    VOID *key = (VOID *) Tcl_GetHashKey (tablePtr, hPtr);
 	    if (typePtr->hashKeyProc) {
 		unsigned int hash;
 		hash = typePtr->hashKeyProc (tablePtr, (VOID *) key);
-- 
cgit v0.12