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 | 33392087253f7414e62317bac4ffcde454483d0c (patch) | |
| tree | 2e9502ec1c06df058ec6f46f1cc8319ff4a80fc5 /generic/tclTest.c | |
| parent | 232af7a8d58285b40fcc8f03dbc317b00fa97d0b (diff) | |
| download | tcl-33392087253f7414e62317bac4ffcde454483d0c.zip tcl-33392087253f7414e62317bac4ffcde454483d0c.tar.gz tcl-33392087253f7414e62317bac4ffcde454483d0c.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; } |