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 | b0d81a985b3f707cc6228dd81e7ad1e6601b643b (patch) | |
| tree | 4b9f52b103c0722290432c4974c687a9ae2b984e /generic/tclIORChan.c | |
| parent | 5773d025383ed2c6186a6bcf53e118df17eaceef (diff) | |
| parent | 4a9e78c1c81ac5ec6d37a5ead62ff57fa90b0875 (diff) | |
| download | tcl-b0d81a985b3f707cc6228dd81e7ad1e6601b643b.zip tcl-b0d81a985b3f707cc6228dd81e7ad1e6601b643b.tar.gz tcl-b0d81a985b3f707cc6228dd81e7ad1e6601b643b.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); |