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/tclExecute.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/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 3f8f87a..8149532 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5336,7 +5336,7 @@ TEBCresume( TclNewObj(objResultPtr); } else if (TclIsPureByteArray(valuePtr)) { objResultPtr = Tcl_NewByteArrayObj( - Tcl_GetByteArrayFromObj(valuePtr, (Tcl_Size *)NULL)+index, 1); + Tcl_GetBytesFromObj(NULL, valuePtr, (Tcl_Size *)NULL)+index, 1); } else if (valuePtr->bytes && slength == valuePtr->length) { objResultPtr = Tcl_NewStringObj((const char *) valuePtr->bytes+index, 1); @@ -5597,8 +5597,8 @@ TEBCresume( unsigned char *bytes1, *bytes2; Tcl_Size wlen1 = 0, wlen2 = 0; - bytes1 = Tcl_GetByteArrayFromObj(valuePtr, &wlen1); - bytes2 = Tcl_GetByteArrayFromObj(value2Ptr, &wlen2); + bytes1 = Tcl_GetBytesFromObj(NULL, valuePtr, &wlen1); + bytes2 = Tcl_GetBytesFromObj(NULL, value2Ptr, &wlen2); match = TclByteArrayMatch(bytes1, wlen1, bytes2, wlen2, 0); } else { match = Tcl_StringCaseMatch(TclGetString(valuePtr), |