summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-09-30 03:11:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-09-30 03:11:24 (GMT)
commit31597e659d7ed47cae7a3637544fc8810a12109e (patch)
treeea44dc1748f30ffb157b0ed595db7157c4993466 /generic/tclIO.c
parent1d9466df83ad7999d5e606e39121eb3dd68b737f (diff)
downloadtcl-31597e659d7ed47cae7a3637544fc8810a12109e.zip
tcl-31597e659d7ed47cae7a3637544fc8810a12109e.tar.gz
tcl-31597e659d7ed47cae7a3637544fc8810a12109e.tar.bz2
* generic/tclDictObj.c: Updated freeIntRepProc routines so
* generic/tclExecute.c: that they set the typePtr field to * generic/tclIO.c: NULL so that the Tcl_Obj is not left * generic/tclIndexObj.c: in an inconsistent state. * generic/tclInt.h: [Bug 2857044] * generic/tclListObj.c: * generic/tclNamesp.c: * generic/tclOOCall.c: * generic/tclObj.c: * generic/tclPathObj.c: * generic/tclProc.c: * generic/tclRegexp.c: * generic/tclStringObj.c:
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 6ace57a..737e64e 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIO.c,v 1.161 2009/09/07 07:28:38 das Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.162 2009/09/30 03:11:26 dgp Exp $
*/
#include "tclInt.h"
@@ -11131,6 +11131,7 @@ FreeChannelIntRep(
Tcl_Obj *objPtr) /* Object with internal rep to free. */
{
Tcl_Release(GET_CHANNELSTATE(objPtr));
+ objPtr->typePtr = NULL;
}
#if 0