diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-10-19 20:21:29 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-10-19 20:21:29 (GMT) |
| commit | 83c8e0321a687d24262d264edcf59976f8dc2a41 (patch) | |
| tree | 2e9502ec1c06df058ec6f46f1cc8319ff4a80fc5 /generic/tclTest.c | |
| parent | 2624987d716ffab7d8566541f170bbe8ebc4f4f9 (diff) | |
| download | tcl-83c8e0321a687d24262d264edcf59976f8dc2a41.zip tcl-83c8e0321a687d24262d264edcf59976f8dc2a41.tar.gz tcl-83c8e0321a687d24262d264edcf59976f8dc2a41.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; } |