diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-08 09:12:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-08 09:12:13 (GMT) |
| commit | 1137d0bc8f609b4be6399807ad914a3b723f57bc (patch) | |
| tree | bb5c952eb3d8d7fe5d5a020a1a0cd4803c5b1d98 /generic/tclBinary.c | |
| parent | 66efe97581fe6ec6c8b743afe7061a341a10073e (diff) | |
| download | tcl-1137d0bc8f609b4be6399807ad914a3b723f57bc.zip tcl-1137d0bc8f609b4be6399807ad914a3b723f57bc.tar.gz tcl-1137d0bc8f609b4be6399807ad914a3b723f57bc.tar.bz2 | |
Tcl_GetByteArrayFromObj -> Tcl_GetBytesFromObj everywhere in core, since it has the possibility of better error-reporting. This fixes the -DTCL_NO_DEPRECATED build failure
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index a09eacb..f14685a 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -892,7 +892,7 @@ BinaryFormatCmd( goto badIndex; } if (count == BINARY_ALL) { - if (Tcl_GetByteArrayFromObj(objv[arg], &count) == NULL) { + if (Tcl_GetBytesFromObj(NULL, objv[arg], &count) == NULL) { count = Tcl_GetCharLength(objv[arg]); } } else if (count == BINARY_NOCOUNT) { @@ -1063,7 +1063,7 @@ BinaryFormatCmd( unsigned char *bytes; Tcl_Obj *copy = TclNarrowToBytes(objv[arg++]); - bytes = Tcl_GetByteArrayFromObj(copy, &length); + bytes = Tcl_GetBytesFromObj(NULL, copy, &length); if (count == BINARY_ALL) { count = length; @@ -2508,7 +2508,7 @@ BinaryDecodeHex( } TclNewObj(resultObj); - data = Tcl_GetByteArrayFromObj(objv[objc - 1], &count); + data = Tcl_GetBytesFromObj(NULL, objv[objc - 1], &count); if (data == NULL) { pure = 0; data = (unsigned char *) Tcl_GetStringFromObj(objv[objc - 1], &count); @@ -2641,7 +2641,7 @@ BinaryEncode64( } break; case OPT_WRAPCHAR: - wrapchar = (const char *)Tcl_GetByteArrayFromObj( + wrapchar = (const char *)Tcl_GetBytesFromObj(NULL, objv[i + 1], &wrapcharlen); if (wrapchar == NULL) { purewrap = 0; @@ -2912,7 +2912,7 @@ BinaryDecodeUu( } TclNewObj(resultObj); - data = Tcl_GetByteArrayFromObj(objv[objc - 1], &count); + data = Tcl_GetBytesFromObj(NULL, objv[objc - 1], &count); if (data == NULL) { pure = 0; data = (unsigned char *) Tcl_GetStringFromObj(objv[objc - 1], &count); @@ -3087,7 +3087,7 @@ BinaryDecode64( } TclNewObj(resultObj); - data = Tcl_GetByteArrayFromObj(objv[objc - 1], &count); + data = Tcl_GetBytesFromObj(NULL, objv[objc - 1], &count); if (data == NULL) { pure = 0; data = (unsigned char *) Tcl_GetStringFromObj(objv[objc - 1], &count); |