diff options
| -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); } |