diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-04-27 19:34:30 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-04-27 19:34:30 (GMT) |
| commit | 7a28e54b7bdfc87b1f09dcaff57c5c88f172ad8a (patch) | |
| tree | 61a5eed9f6da91d4505d9ef77f026b52a79c1ffc | |
| parent | 0d12754dbe6102188981d9d78ca772201250947b (diff) | |
| download | tcl-7a28e54b7bdfc87b1f09dcaff57c5c88f172ad8a.zip tcl-7a28e54b7bdfc87b1f09dcaff57c5c88f172ad8a.tar.gz tcl-7a28e54b7bdfc87b1f09dcaff57c5c88f172ad8a.tar.bz2 | |
FreeIndex backport
| -rw-r--r-- | ChangeLog | 1 | ||||
| -rw-r--r-- | generic/tclIndexObj.c | 1 |
2 files changed, 2 insertions, 0 deletions
@@ -5,6 +5,7 @@ * generic/tclBinary.c: Backport fix for [Bug 2857044]. * generic/tclDictObj.c: All freeIntRepProcs set typePtr to NULL. * generic/tclEncoding.c: + * generic/tclIndexObj.c: * generic/tclListObj.c: * generic/tclNamesp.c: * generic/tclObj.c: diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index ce25a12..595132c 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -397,6 +397,7 @@ FreeIndex( Tcl_Obj *objPtr) { ckfree((char *) objPtr->internalRep.otherValuePtr); + objPtr->typePtr = NULL; } /* |