summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-04-27 19:26:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-04-27 19:26:11 (GMT)
commitd4624cb3479e802ba0689103317303b2cb3098c7 (patch)
tree55eb219d2beadcbd910d00d1584c3becd482728d /generic/tclVar.c
parent6e055348266e6090d1fc58eda98de67d8a7ae8fb (diff)
parent534bec807cc2cb0a81899bdc9fe9e39a486c0ea5 (diff)
downloadtcl-d4624cb3479e802ba0689103317303b2cb3098c7.zip
tcl-d4624cb3479e802ba0689103317303b2cb3098c7.tar.gz
tcl-d4624cb3479e802ba0689103317303b2cb3098c7.tar.bz2
TclFreeIntRep() correction & cleanup.
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r--generic/tclVar.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index b735ba3..55c031c 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -703,7 +703,6 @@ TclObjLookupVarEx(
*/
TclFreeIntRep(part1Ptr);
- part1Ptr->typePtr = NULL;
varPtr = TclLookupSimpleVar(interp, part1Ptr, flags, createPart1,
&errMsg, &index);
@@ -2361,7 +2360,6 @@ TclPtrUnsetVar(
if (part1Ptr->typePtr == &tclNsVarNameType) {
TclFreeIntRep(part1Ptr);
- part1Ptr->typePtr = NULL;
}
#endif