diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-04-27 19:26:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-04-27 19:26:11 (GMT) |
| commit | d4624cb3479e802ba0689103317303b2cb3098c7 (patch) | |
| tree | 55eb219d2beadcbd910d00d1584c3becd482728d /generic/tclVar.c | |
| parent | 6e055348266e6090d1fc58eda98de67d8a7ae8fb (diff) | |
| parent | 534bec807cc2cb0a81899bdc9fe9e39a486c0ea5 (diff) | |
| download | tcl-d4624cb3479e802ba0689103317303b2cb3098c7.zip tcl-d4624cb3479e802ba0689103317303b2cb3098c7.tar.gz tcl-d4624cb3479e802ba0689103317303b2cb3098c7.tar.bz2 | |
TclFreeIntRep() correction & cleanup.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 2 |
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 |