Attachment "2802881.patch" to
ticket [2802881fff]
added by
dgp
2009-06-13 19:57:05.
Index: generic/tclCompile.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCompile.c,v
retrieving revision 1.146.2.6
diff -u -r1.146.2.6 tclCompile.c
--- generic/tclCompile.c 25 Jul 2008 20:30:44 -0000 1.146.2.6
+++ generic/tclCompile.c 13 Jun 2009 12:56:21 -0000
@@ -870,6 +870,7 @@
envPtr->source = stringPtr;
envPtr->numSrcBytes = numBytes;
envPtr->procPtr = iPtr->compiledProcPtr;
+ iPtr->compiledProcPtr = NULL;
envPtr->numCommands = 0;
envPtr->exceptDepth = 0;
envPtr->maxExceptDepth = 0;
Index: generic/tclProc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclProc.c,v
retrieving revision 1.139.2.4
diff -u -r1.139.2.4 tclProc.c
--- generic/tclProc.c 19 Oct 2008 19:54:22 -0000 1.139.2.4
+++ generic/tclProc.c 13 Jun 2009 12:56:22 -0000
@@ -1891,7 +1891,6 @@
Interp *iPtr = (Interp *) interp;
int i;
Tcl_CallFrame *framePtr;
- Proc *saveProcPtr;
ByteCode *codePtr = bodyPtr->internalRep.otherValuePtr;
CompiledLocal *localPtr;
@@ -1961,8 +1960,6 @@
* appropriate class context.
*/
- saveProcPtr = iPtr->compiledProcPtr;
-
if (procPtrPtr != NULL && procPtr->refCount > 1) {
Tcl_Command token;
Tcl_CmdInfo info;
@@ -2045,7 +2042,6 @@
(void) tclByteCodeType.setFromAnyProc(interp, bodyPtr);
iPtr->invokeCmdFramePtr = NULL;
TclPopStackFrame(interp);
- iPtr->compiledProcPtr = saveProcPtr;
} else if (codePtr->nsEpoch != nsPtr->resolverEpoch) {
/*
* The resolver epoch has changed, but we only need to invalidate the