Artifact
33963b4339f9ea7b3520a1a79888321f8cebbdb4:
Attachment "varleak.patch" to
ticket [604239ffff]
added by
dgp
2002-09-04 10:04:15.
Index: generic/tclVar.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclVar.c,v
retrieving revision 1.65
diff -r1.65 tclVar.c
3553a3554,3556
> if (varFramePtr == NULL || !varFramePtr->isProcCallFrame) {
> varPtr->refCount--;
> }
3560a3564,3567
> if (varFramePtr == NULL || !varFramePtr->isProcCallFrame) {
> varPtr->flags |= VAR_NAMESPACE_VAR;
> varPtr->refCount++;
> }