From 7a28e54b7bdfc87b1f09dcaff57c5c88f172ad8a Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 27 Apr 2011 19:34:30 +0000
Subject: FreeIndex backport
---
ChangeLog | 1 +
generic/tclIndexObj.c | 1 +
2 files changed, 2 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index 6cc8ded..6cfe6d1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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;
}
/*
--
cgit v0.12