diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-11-20 00:19:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-11-20 00:19:46 (GMT) |
| commit | 574b585c5101310f119cd540bdcae05636888bca (patch) | |
| tree | ce8fd87b7b6f1906563b8a0990fa66781f39f28a /generic | |
| parent | cf20f0bed2369b03a48196a130f6ccab9912ad61 (diff) | |
| download | tcl-574b585c5101310f119cd540bdcae05636888bca.zip tcl-574b585c5101310f119cd540bdcae05636888bca.tar.gz tcl-574b585c5101310f119cd540bdcae05636888bca.tar.bz2 | |
a bit of cleanup
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclVar.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 3bbe63f..54699ce 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.183 2009/10/17 22:24:38 dkf Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.184 2009/11/20 00:19:46 dgp Exp $ */ #include "tclInt.h" @@ -4770,6 +4770,7 @@ FreeLocalVarName( if (namePtr) { Tcl_DecrRefCount(namePtr); } + objPtr->typePtr = NULL; } static void @@ -4811,6 +4812,7 @@ FreeNsVarName( CleanupVar(varPtr, NULL); } } + objPtr->typePtr = NULL; } static void @@ -4850,6 +4852,7 @@ FreeParsedVarName( TclDecrRefCount(arrayPtr); ckfree(elem); } + objPtr->typePtr = NULL; } static void |