diff options
author | dgp <dgp@users.sourceforge.net> | 2014-08-01 17:16:35 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-08-01 17:16:35 (GMT) |
commit | bed95cfaf7e04f2ec6f84d55b0c45838bfba6be5 (patch) | |
tree | 4b9f52b103c0722290432c4974c687a9ae2b984e /generic/tclIORChan.c | |
parent | 1db9d005b60fedd68e3de574d077de4be163f602 (diff) | |
parent | fd5a54c8dd66798f9562fa5738b16d8531ca9097 (diff) | |
download | tcl-bed95cfaf7e04f2ec6f84d55b0c45838bfba6be5.zip tcl-bed95cfaf7e04f2ec6f84d55b0c45838bfba6be5.tar.gz tcl-bed95cfaf7e04f2ec6f84d55b0c45838bfba6be5.tar.bz2 |
Backport the cheaper Preserve/Release on channels.
Diffstat (limited to 'generic/tclIORChan.c')
-rw-r--r-- | generic/tclIORChan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index e1bd6e1..bbb5b88 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -649,7 +649,7 @@ TclChanCreateObjCmd( chan = Tcl_CreateChannel(&tclRChannelType, TclGetString(rcId), rcPtr, mode); rcPtr->chan = chan; - Tcl_Preserve(chan); + TclChannelPreserve(chan); chanPtr = (Channel *) chan; if ((methods & NULLABLE_METHODS) != NULLABLE_METHODS) { @@ -2054,7 +2054,7 @@ FreeReflectedChannel( { Channel *chanPtr = (Channel *) rcPtr->chan; - Tcl_Release(chanPtr); + TclChannelRelease((Tcl_Channel)chanPtr); Tcl_DecrRefCount(rcPtr->name); Tcl_DecrRefCount(rcPtr->methods); Tcl_DecrRefCount(rcPtr->cmd); |