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