diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-04-13 09:18:53 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-04-13 09:18:53 (GMT) |
| commit | a1021c091ca031436936956ee854adfeebe12bdd (patch) | |
| tree | 65417258fe55b7f7268d0cd3014c9158e7d6e5e9 | |
| parent | a6754db559cf66d908bc886330a527a939f42f3f (diff) | |
| download | tcl-a1021c091ca031436936956ee854adfeebe12bdd.zip tcl-a1021c091ca031436936956ee854adfeebe12bdd.tar.gz tcl-a1021c091ca031436936956ee854adfeebe12bdd.tar.bz2 | |
Remove unnecessary reference count bump in Tcl_ReadObjCmd().
| -rw-r--r-- | generic/tclIOCmd.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 0459338..5a766c6 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; } |