diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-14 15:01:18 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-14 15:01:18 (GMT) |
commit | 0db2f11f15f912f0e79b915e2f2af197b7c3be20 (patch) | |
tree | d687a0578a3abc79fe9d4a121f91e407208cf9ff /generic/tclIOCmd.c | |
parent | 4307d0a739ddfd9545e59a0ccf16067fc2dab2a2 (diff) | |
parent | f7c3a988274b5e8026bf4836028bfd6831e6a615 (diff) | |
download | tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.zip tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.tar.gz tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.tar.bz2 |
Merge trunk
Diffstat (limited to 'generic/tclIOCmd.c')
-rw-r--r-- | generic/tclIOCmd.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 8a0756f..96119e2 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -430,7 +430,6 @@ Tcl_ReadObjCmd( } TclNewObj(resultPtr); - Tcl_IncrRefCount(resultPtr); TclChannelPreserve(chan); charactersRead = Tcl_ReadChars(chan, resultPtr, toRead, 0); if (charactersRead == TCL_IO_FAILURE) { @@ -447,7 +446,6 @@ Tcl_ReadObjCmd( TclGetString(chanObjPtr), Tcl_PosixError(interp))); } TclChannelRelease(chan); - Tcl_DecrRefCount(resultPtr); return TCL_ERROR; } @@ -466,7 +464,6 @@ Tcl_ReadObjCmd( } Tcl_SetObjResult(interp, resultPtr); TclChannelRelease(chan); - Tcl_DecrRefCount(resultPtr); return TCL_OK; } @@ -1009,7 +1006,7 @@ Tcl_ExecObjCmd( * * Side effects: * Sets interp's result to boolean true or false depending on whether the - * preceeding input operation on the channel would have blocked. + * preceding input operation on the channel would have blocked. * *--------------------------------------------------------------------------- */ |