summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c4
1 files 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;
}