diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-04-27 18:23:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-04-27 18:23:39 (GMT) |
| commit | 3b9139924b1097de66255cd243de80d6eccb46ba (patch) | |
| tree | 49158d5108ad115f779f031e7d855af9adbb7319 /generic/tclVar.c | |
| parent | a7fbbf49700d95954ce9bd3e780ae56f9e3b7421 (diff) | |
| download | tcl-3b9139924b1097de66255cd243de80d6eccb46ba.zip tcl-3b9139924b1097de66255cd243de80d6eccb46ba.tar.gz tcl-3b9139924b1097de66255cd243de80d6eccb46ba.tar.bz2 | |
Backport fix for [Bug 2857044].
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index a1885b5..aaf1cb9 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -4776,6 +4776,7 @@ FreeLocalVarName( if (namePtr) { Tcl_DecrRefCount(namePtr); } + objPtr->typePtr = NULL; } static void @@ -4817,6 +4818,7 @@ FreeNsVarName( CleanupVar(varPtr, NULL); } } + objPtr->typePtr = NULL; } static void @@ -4856,6 +4858,7 @@ FreeParsedVarName( TclDecrRefCount(arrayPtr); ckfree(elem); } + objPtr->typePtr = NULL; } static void |