diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-03-27 21:35:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-03-27 21:35:57 (GMT) |
| commit | 06f376eefe2af7c3eb3f8131dacd6bc296a2fb71 (patch) | |
| tree | 73af2feeab227e512482b284755dd230c7902110 /generic/tclIORChan.c | |
| parent | bb3eb0aaa60aba47a0e857fa2e34e5eb7ba8263f (diff) | |
| download | tcl-06f376eefe2af7c3eb3f8131dacd6bc296a2fb71.zip tcl-06f376eefe2af7c3eb3f8131dacd6bc296a2fb71.tar.gz tcl-06f376eefe2af7c3eb3f8131dacd6bc296a2fb71.tar.bz2 | |
Minimal patch to fix iocmd-23.11. Might not be the best fix, but is *a* fix.
Diffstat (limited to 'generic/tclIORChan.c')
| -rw-r--r-- | generic/tclIORChan.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index ca3ab4b..affed02 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -571,6 +571,7 @@ TclChanCreateObjCmd( chan = Tcl_CreateChannel(&tclRChannelType, TclGetString(rcId), rcPtr, mode); rcPtr->chan = chan; + Tcl_Preserve(chan); chanPtr = (Channel *) chan; /* @@ -2145,6 +2146,7 @@ FreeReflectedChannel( ckfree((char*) chanPtr->typePtr); } + Tcl_Release(chanPtr); n = rcPtr->argc - 2; for (i=0; i<n; i++) { |