diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-30 00:22:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-30 00:22:33 (GMT) |
| commit | 2e1ca1d9e14de68527cb660bb11fb459fdb8f01e (patch) | |
| tree | d2dc37bdf103c9c34253a78fb34ee5b67760bbf0 /generic/tclIORChan.c | |
| parent | 397413cd716cc73ca6291b8ba67c1c1950624fd2 (diff) | |
| download | tcl-2e1ca1d9e14de68527cb660bb11fb459fdb8f01e.zip tcl-2e1ca1d9e14de68527cb660bb11fb459fdb8f01e.tar.gz tcl-2e1ca1d9e14de68527cb660bb11fb459fdb8f01e.tar.bz2 | |
Reduce the cost of 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 3506a44..21c766e 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -658,7 +658,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) { @@ -2188,7 +2188,7 @@ FreeReflectedChannel( { Channel *chanPtr = (Channel *) rcPtr->chan; - Tcl_Release(chanPtr); + TclChannelRelease((Tcl_Channel)chanPtr); if (rcPtr->name) { Tcl_DecrRefCount(rcPtr->name); } |