diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-04-25 17:51:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-04-25 17:51:14 (GMT) |
| commit | 34fcfa780b6ed1022239c614a3e2235a88bc3696 (patch) | |
| tree | 34e6cabc16d61e279baf7e0d225ac6dffec43f68 /generic/tclTestObj.c | |
| parent | 8b8a05a0fbdb61efa8af4699fd8ea2f15d09e3de (diff) | |
| download | tcl-34fcfa780b6ed1022239c614a3e2235a88bc3696.zip tcl-34fcfa780b6ed1022239c614a3e2235a88bc3696.tar.gz tcl-34fcfa780b6ed1022239c614a3e2235a88bc3696.tar.bz2 | |
TclFreeIntRep() related cleanup.
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 1ef1dc3..92c278f 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -562,8 +562,7 @@ TestindexobjCmd( && !strcmp("index", objv[3]->typePtr->name)) { indexRep = objv[3]->internalRep.otherValuePtr; if (indexRep->tablePtr == (void *) argv) { - objv[3]->typePtr->freeIntRepProc(objv[3]); - objv[3]->typePtr = NULL; + TclFreeIntRep(objv[3]); } } |