diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-01-13 14:22:31 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-01-13 14:22:31 (GMT) |
| commit | 3d05f0dbea4bb0c707a1ae59adae786c6d5cd43e (patch) | |
| tree | ec6ddef873fe07f8f193c227fcf44b47de49b2e4 /generic/tclBasic.c | |
| parent | b2190d273f42dc51a6455279afdf00695c45c12b (diff) | |
| parent | f15743b10f46d799266a5df68f03a35a22885704 (diff) | |
| download | tcl-3d05f0dbea4bb0c707a1ae59adae786c6d5cd43e.zip tcl-3d05f0dbea4bb0c707a1ae59adae786c6d5cd43e.tar.gz tcl-3d05f0dbea4bb0c707a1ae59adae786c6d5cd43e.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index dec26b4..f88c15d 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6703,11 +6703,10 @@ Tcl_AppendObjToErrorInfo( * pertains. */ Tcl_Obj *objPtr) /* Message to record. */ { - int length; - const char *message = TclGetStringFromObj(objPtr, &length); + const char *message = TclGetString(objPtr); Tcl_IncrRefCount(objPtr); - Tcl_AddObjErrorInfo(interp, message, length); + Tcl_AddObjErrorInfo(interp, message, objPtr->length); Tcl_DecrRefCount(objPtr); } |