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)
commit135d6f15948ff19fce36aee9d4bac3240bf0f3a5 (patch)
tree49158d5108ad115f779f031e7d855af9adbb7319 /generic/tclStringObj.c
parent59b52c5eb0ac2364f909d4796f125bac38099d35 (diff)
downloadtcl-135d6f15948ff19fce36aee9d4bac3240bf0f3a5.zip
tcl-135d6f15948ff19fce36aee9d4bac3240bf0f3a5.tar.gz
tcl-135d6f15948ff19fce36aee9d4bac3240bf0f3a5.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;
}
/*