From af3c0b7aa062161e708224346b62b7e8d6fec876 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 19 Oct 2011 20:21:29 +0000
Subject: Stop warnings and segfault.

---
 generic/tclTest.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclTest.c b/generic/tclTest.c
index 299ba0e..af467f0 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -7149,7 +7149,7 @@ InterpCmdResolver(
         varFramePtr->procPtr : NULL;
     Namespace *ns2NsPtr;
 
-    ns2NsPtr = Tcl_FindNamespace(interp, "::ns2", NULL, 0);
+    ns2NsPtr = (Namespace *)Tcl_FindNamespace(interp, "::ns2", NULL, 0);
 
     if (procPtr && (procPtr->cmdPtr->nsPtr == iPtr->globalNsPtr
             || (ns2NsPtr && procPtr->cmdPtr->nsPtr == ns2NsPtr))) {
@@ -7256,7 +7256,7 @@ MyCompiledVarFetch(
      * Tcl's FreeVarEntry(); for cleanup, we provide our own HashVarFree();
      */
 
-    VarHashRefCount(var);
+    VarHashRefCount(var) ++;
     return var;
 }
 
-- 
cgit v0.12