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 | 994d65042ff6ea1aa6dc4b8e9da020b27817f0c6 (patch) | |
| tree | bb5c952eb3d8d7fe5d5a020a1a0cd4803c5b1d98 /generic/tclIOGT.c | |
| parent | fcccf8ec89035dac2b9d50f08c163cb4125feecb (diff) | |
| download | tcl-994d65042ff6ea1aa6dc4b8e9da020b27817f0c6.zip tcl-994d65042ff6ea1aa6dc4b8e9da020b27817f0c6.tar.gz tcl-994d65042ff6ea1aa6dc4b8e9da020b27817f0c6.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/tclIOGT.c')
| -rw-r--r-- | generic/tclIOGT.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c index b2b959d..4ef4bb0 100644 --- a/generic/tclIOGT.c +++ b/generic/tclIOGT.c @@ -445,7 +445,7 @@ ExecuteCallback( break; } resObj = Tcl_GetObjResult(eval); - resBuf = Tcl_GetByteArrayFromObj(resObj, &resLen); + resBuf = Tcl_GetBytesFromObj(NULL, resObj, &resLen); if (resBuf) { Tcl_WriteRaw(Tcl_GetStackedChannel(dataPtr->self), (char *) resBuf, resLen); @@ -458,7 +458,7 @@ ExecuteCallback( break; } resObj = Tcl_GetObjResult(eval); - resBuf = Tcl_GetByteArrayFromObj(resObj, &resLen); + resBuf = Tcl_GetBytesFromObj(NULL, resObj, &resLen); if (resBuf) { Tcl_WriteRaw(dataPtr->self, (char *) resBuf, resLen); break; @@ -467,7 +467,7 @@ ExecuteCallback( case TRANSMIT_IBUF: resObj = Tcl_GetObjResult(eval); - resBuf = Tcl_GetByteArrayFromObj(resObj, &resLen); + resBuf = Tcl_GetBytesFromObj(NULL, resObj, &resLen); if (resBuf) { ResultAdd(&dataPtr->result, resBuf, resLen); break; |