summaryrefslogtreecommitdiffstats
path: root/generic/tclBinary.c
diff options
context:
space:
mode:
authordgp@users.sourceforge.net <dgp>2011-04-27 18:23:39 (GMT)
committerdgp@users.sourceforge.net <dgp>2011-04-27 18:23:39 (GMT)
commit5153c5535d0c6ff6cba5d3d500041ac9aba732f7 (patch)
tree49158d5108ad115f779f031e7d855af9adbb7319 /generic/tclBinary.c
parent64114377fc34ea860b1452ccec04c141a4d650e8 (diff)
downloadtcl-5153c5535d0c6ff6cba5d3d500041ac9aba732f7.zip
tcl-5153c5535d0c6ff6cba5d3d500041ac9aba732f7.tar.gz
tcl-5153c5535d0c6ff6cba5d3d500041ac9aba732f7.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;
}
/*