From 6d344dc6c28d80dc01421500132793e38ba04995 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Wed, 5 Aug 2015 19:30:06 +0000
Subject: remove potential crash detected by Coverity (it is a
 should-never-happen thing)

---
 generic/tclVar.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclVar.c b/generic/tclVar.c
index fa217ef..b37283b 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -2394,8 +2394,8 @@ UnsetVarStruct(
 	    tracePtr = NULL;
 	    if (TclIsVarTraced(&dummyVar)) {
 		tPtr = Tcl_FindHashEntry(&iPtr->varTraces, &dummyVar);
-		tracePtr = Tcl_GetHashValue(tPtr);
 		if (tPtr) {
+		    tracePtr = Tcl_GetHashValue(tPtr);
 		    Tcl_DeleteHashEntry(tPtr);
 		}
 	    }
-- 
cgit v0.12