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 /generic/tclBasic.c | |
| parent | 2c081dcd0c8ec409e22ffbb1f49579b83ad3b79e (diff) | |
| download | tcl-e663097026638d349d2ac63a28f5c5fcd6f15677.zip tcl-e663097026638d349d2ac63a28f5c5fcd6f15677.tar.gz tcl-e663097026638d349d2ac63a28f5c5fcd6f15677.tar.bz2 | |
Minor code cleanup
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
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); } |