diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-29 18:33:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-29 18:33:58 (GMT) |
| commit | e663097026638d349d2ac63a28f5c5fcd6f15677 (patch) | |
| tree | e110d7ffe114047bd4c15d291dc731fb64a2af95 | |
| parent | 2c081dcd0c8ec409e22ffbb1f49579b83ad3b79e (diff) | |
| download | tcl-e663097026638d349d2ac63a28f5c5fcd6f15677.zip tcl-e663097026638d349d2ac63a28f5c5fcd6f15677.tar.gz tcl-e663097026638d349d2ac63a28f5c5fcd6f15677.tar.bz2 | |
Minor code cleanup
| -rw-r--r-- | doc/OpenFileChnl.3 | 2 | ||||
| -rw-r--r-- | generic/tclBasic.c | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/doc/OpenFileChnl.3 b/doc/OpenFileChnl.3 index f05e5bc..eb307e6 100644 --- a/doc/OpenFileChnl.3 +++ b/doc/OpenFileChnl.3 @@ -101,7 +101,7 @@ Tcl_WideInt int \fBTcl_TruncateChannel\fR(\fIchannel, length\fR) .sp -2222int +int \fBTcl_GetChannelOption\fR(\fIinterp, channel, optionName, optionValue\fR) .sp int diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 6db74cf..8962b6c 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6254,13 +6254,13 @@ Tcl_AppendObjToErrorInfo( * Now append "message" to the end of errorInfo. */ - if (objPtr->length != 0) { + if (length != 0) { if (Tcl_IsShared(iPtr->errorInfo)) { Tcl_DecrRefCount(iPtr->errorInfo); iPtr->errorInfo = Tcl_DuplicateObj(iPtr->errorInfo); Tcl_IncrRefCount(iPtr->errorInfo); } - Tcl_AppendToObj(iPtr->errorInfo, message, objPtr->length); + Tcl_AppendToObj(iPtr->errorInfo, message, length); } Tcl_DecrRefCount(objPtr); } |