diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-09-26 14:27:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-09-26 14:27:37 (GMT) |
| commit | 09a4760ba322c1d8425f71dce3dd21e99b82a192 (patch) | |
| tree | 9a7add019f2d5900b3ec66d3ec3eb47fa0b889ce /generic/tclBinary.c | |
| parent | 1d119413f611a492dd5c4cf31fd9b576fa0468c7 (diff) | |
| download | tcl-09a4760ba322c1d8425f71dce3dd21e99b82a192.zip tcl-09a4760ba322c1d8425f71dce3dd21e99b82a192.tar.gz tcl-09a4760ba322c1d8425f71dce3dd21e99b82a192.tar.bz2 | |
Tcl_SetResult -> Tcl_SetObjResult
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 58583f4..4e977f2 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2500,7 +2500,8 @@ BinaryEncode64( return TCL_ERROR; } if (maxlen < 0) { - Tcl_SetResult(interp, "line length out of range", TCL_STATIC); + Tcl_SetObjResult(interp, Tcl_NewStringObj( + "line length out of range", -1)); Tcl_SetErrorCode(interp, "TCL", "BINARY", "ENCODE", "LINE_LENGTH", NULL); return TCL_ERROR; @@ -2606,7 +2607,8 @@ BinaryEncodeUu( return TCL_ERROR; } if (lineLength < 3 || lineLength > 85) { - Tcl_SetResult(interp, "line length out of range", TCL_STATIC); + Tcl_SetObjResult(interp, Tcl_NewStringObj( + "line length out of range", -1)); Tcl_SetErrorCode(interp, "TCL", "BINARY", "ENCODE", "LINE_LENGTH", NULL); return TCL_ERROR; |