summaryrefslogtreecommitdiffstats
path: root/generic/tclStringObj.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-04-27 18:23:39 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-04-27 18:23:39 (GMT)
commit3b9139924b1097de66255cd243de80d6eccb46ba (patch)
tree49158d5108ad115f779f031e7d855af9adbb7319 /generic/tclStringObj.c
parenta7fbbf49700d95954ce9bd3e780ae56f9e3b7421 (diff)
downloadtcl-3b9139924b1097de66255cd243de80d6eccb46ba.zip
tcl-3b9139924b1097de66255cd243de80d6eccb46ba.tar.gz
tcl-3b9139924b1097de66255cd243de80d6eccb46ba.tar.bz2
Backport fix for [Bug 2857044].
Diffstat (limited to 'generic/tclStringObj.c')
-rw-r--r--generic/tclStringObj.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 17bed1b..13dda54 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -3056,6 +3056,7 @@ FreeStringInternalRep(
Tcl_Obj *objPtr) /* Object with internal rep to free. */
{
ckfree((char *) GET_STRING(objPtr));
+ objPtr->typePtr = NULL;
}
/*