diff options
author | dgp <dgp@noemail.net> | 2011-04-25 17:51:14 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-04-25 17:51:14 (GMT) |
commit | 39f23588522503f1990d91ff0c139f2cde3b120b (patch) | |
tree | 34e6cabc16d61e279baf7e0d225ac6dffec43f68 /generic/tclProc.c | |
parent | 4ba8af91bb3cdc8d5e24f8d47e623b85942969df (diff) | |
download | tcl-39f23588522503f1990d91ff0c139f2cde3b120b.zip tcl-39f23588522503f1990d91ff0c139f2cde3b120b.tar.gz tcl-39f23588522503f1990d91ff0c139f2cde3b120b.tar.bz2 |
TclFreeIntRep() related cleanup.
FossilOrigin-Name: cb85bb50025cbe392b362b0bb6ab40e29ca8f146
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 1260f4f..a2de765 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2006,8 +2006,7 @@ TclProcCompileProc( codePtr->compileEpoch = iPtr->compileEpoch; codePtr->nsPtr = nsPtr; } else { - bodyPtr->typePtr->freeIntRepProc(bodyPtr); - bodyPtr->typePtr = NULL; + TclFreeIntRep(bodyPtr); } } @@ -2635,7 +2634,7 @@ SetLambdaFromAny( * conversion to lambdaType. */ - objPtr->typePtr->freeIntRepProc(objPtr); + TclFreeIntRep(objPtr); objPtr->internalRep.twoPtrValue.ptr1 = procPtr; objPtr->internalRep.twoPtrValue.ptr2 = nsObjPtr; |