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/tclIORChan.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/tclIORChan.c')
| -rw-r--r-- | generic/tclIORChan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 6ba6ad8..93a8b5a 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -1391,7 +1391,7 @@ ReflectInput( goto invalid; } - bytev = Tcl_GetByteArrayFromObj(resObj, &bytec); + bytev = Tcl_GetBytesFromObj(NULL, resObj, &bytec); if (bytev == NULL) { SetChannelErrorStr(rcPtr->chan, msg_read_nonbyte); @@ -3129,7 +3129,7 @@ ForwardProc( Tcl_Size bytec = 0; /* Number of returned bytes */ unsigned char *bytev; /* Array of returned bytes */ - bytev = Tcl_GetByteArrayFromObj(resObj, &bytec); + bytev = Tcl_GetBytesFromObj(NULL, resObj, &bytec); if (bytev == NULL) { ForwardSetStaticError(paramPtr, msg_read_nonbyte); |