Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Stop warnings and segfault. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | bug-3418547 |
Files: | files | file ages | folders |
SHA1: |
1e6db28a29656483e25258158d716abe |
User & Date: | dgp 2011-10-19 20:21:29 |
Context
2011-10-20
| ||
13:50 | Tidying up. check-in: dfb85d39bc user: dkf tags: bug-3418547 | |
2011-10-19
| ||
20:21 | Stop warnings and segfault. check-in: 1e6db28a29 user: dgp tags: bug-3418547 | |
2011-10-15
| ||
16:48 | And the failing test file too... check-in: ae57dfb77e user: dkf tags: bug-3418547 | |
Changes
Changes to generic/tclTest.c.
︙ | ︙ | |||
7145 7146 7147 7148 7149 7150 7151 | Tcl_Command sourceCmdPtr; Interp *iPtr = (Interp *) interp; CallFrame *varFramePtr = iPtr->varFramePtr; Proc *procPtr = (varFramePtr->isProcCallFrame & FRAME_IS_PROC) ? varFramePtr->procPtr : NULL; Namespace *ns2NsPtr; | | | 7145 7146 7147 7148 7149 7150 7151 7152 7153 7154 7155 7156 7157 7158 7159 | Tcl_Command sourceCmdPtr; Interp *iPtr = (Interp *) interp; CallFrame *varFramePtr = iPtr->varFramePtr; Proc *procPtr = (varFramePtr->isProcCallFrame & FRAME_IS_PROC) ? varFramePtr->procPtr : NULL; Namespace *ns2NsPtr; ns2NsPtr = (Namespace *)Tcl_FindNamespace(interp, "::ns2", NULL, 0); if (procPtr && (procPtr->cmdPtr->nsPtr == iPtr->globalNsPtr || (ns2NsPtr && procPtr->cmdPtr->nsPtr == ns2NsPtr))) { const char *callingCmdName = Tcl_GetCommandName(interp, (Tcl_Command) procPtr->cmdPtr); if ((*callingCmdName == 'x') && (*(callingCmdName + 1) == '\0') |
︙ | ︙ | |||
7252 7253 7254 7255 7256 7257 7258 | resVarInfo->var = var; /* * Increment the reference counter to avoid ckfree() of the variable in * Tcl's FreeVarEntry(); for cleanup, we provide our own HashVarFree(); */ | | | 7252 7253 7254 7255 7256 7257 7258 7259 7260 7261 7262 7263 7264 7265 7266 | resVarInfo->var = var; /* * Increment the reference counter to avoid ckfree() of the variable in * Tcl's FreeVarEntry(); for cleanup, we provide our own HashVarFree(); */ VarHashRefCount(var) ++; return var; } static int InterpCompiledVarResolver( Tcl_Interp *interp, const char *name, |
︙ | ︙ |