diff options
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 3d8b24c..452c491 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -873,7 +873,7 @@ BinaryFormatCmd( } else if (count > listc) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "number of elements in list does not match count", - -1)); + TCL_NOSIZE)); return TCL_ERROR; } } @@ -883,7 +883,7 @@ BinaryFormatCmd( case 'x': if (count == BINARY_ALL) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "cannot use \"*\" in format string with \"x\"", -1)); + "cannot use \"*\" in format string with \"x\"", TCL_NOSIZE)); return TCL_ERROR; } else if (count == BINARY_NOCOUNT) { count = 1; @@ -1221,7 +1221,7 @@ BinaryFormatCmd( } error: - Tcl_SetObjResult(interp, Tcl_NewStringObj(errorString, -1)); + Tcl_SetObjResult(interp, Tcl_NewStringObj(errorString, TCL_NOSIZE)); return TCL_ERROR; } @@ -1591,7 +1591,7 @@ BinaryScanCmd( } error: - Tcl_SetObjResult(interp, Tcl_NewStringObj(errorString, -1)); + Tcl_SetObjResult(interp, Tcl_NewStringObj(errorString, TCL_NOSIZE)); return TCL_ERROR; } |