summaryrefslogtreecommitdiffstats
path: root/generic/tclBinary.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/tclBinary.c
parenta7fbbf49700d95954ce9bd3e780ae56f9e3b7421 (diff)
downloadtcl-3b9139924b1097de66255cd243de80d6eccb46ba.zip
tcl-3b9139924b1097de66255cd243de80d6eccb46ba.tar.gz
tcl-3b9139924b1097de66255cd243de80d6eccb46ba.tar.bz2
Backport fix for [Bug 2857044].
Diffstat (limited to 'generic/tclBinary.c')
-rw-r--r--generic/tclBinary.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index b1bf2ab..90d392b 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -436,6 +436,7 @@ FreeByteArrayInternalRep(
Tcl_Obj *objPtr) /* Object with internal rep to free. */
{
ckfree((char *) GET_BYTEARRAY(objPtr));
+ objPtr->typePtr = NULL;
}
/*