summaryrefslogtreecommitdiffstats
path: root/generic/tclBinary.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-09-26 14:27:37 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-09-26 14:27:37 (GMT)
commit09a4760ba322c1d8425f71dce3dd21e99b82a192 (patch)
tree9a7add019f2d5900b3ec66d3ec3eb47fa0b889ce /generic/tclBinary.c
parent1d119413f611a492dd5c4cf31fd9b576fa0468c7 (diff)
downloadtcl-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.c6
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;