diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-10-19 20:21:29 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-10-19 20:21:29 (GMT) |
| commit | af3c0b7aa062161e708224346b62b7e8d6fec876 (patch) | |
| tree | 2e9502ec1c06df058ec6f46f1cc8319ff4a80fc5 /generic/tclTest.c | |
| parent | c340a3859f1dfc7b1e77c4d0db35a94d3463f60d (diff) | |
| download | tcl-af3c0b7aa062161e708224346b62b7e8d6fec876.zip tcl-af3c0b7aa062161e708224346b62b7e8d6fec876.tar.gz tcl-af3c0b7aa062161e708224346b62b7e8d6fec876.tar.bz2 | |
Stop warnings and segfault.
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
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; } |