diff options
author | dgp <dgp@users.sourceforge.net> | 2019-02-14 20:31:12 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2019-02-14 20:31:12 (GMT) |
commit | 866d9ffa48e2c36348953f61dc4f5d290387c445 (patch) | |
tree | bc7a85655ff0657ec781b354ed47163909dbb191 /generic/tclIOGT.c | |
parent | ad4ee9280b2b85ff32e7619bd12d3c4921db0835 (diff) | |
parent | 918813166cac0372ced8a1e2e8f4cf8192a169dd (diff) | |
download | tcl-866d9ffa48e2c36348953f61dc4f5d290387c445.zip tcl-866d9ffa48e2c36348953f61dc4f5d290387c445.tar.gz tcl-866d9ffa48e2c36348953f61dc4f5d290387c445.tar.bz2 |
Merge trunk through 2019-01-25
Diffstat (limited to 'generic/tclIOGT.c')
-rw-r--r-- | generic/tclIOGT.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c index c26dd35..00157e3 100644 --- a/generic/tclIOGT.c +++ b/generic/tclIOGT.c @@ -378,7 +378,7 @@ ExecuteCallback( * interpreters. */ { Tcl_Obj *resObj; /* See below, switch (transmit). */ - int resLen; + size_t resLen; unsigned char *resBuf; Tcl_InterpState state = NULL; int res = TCL_OK; @@ -443,7 +443,7 @@ ExecuteCallback( break; } resObj = Tcl_GetObjResult(eval); - resBuf = Tcl_GetByteArrayFromObj(resObj, &resLen); + resBuf = TclGetByteArrayFromObj(resObj, &resLen); if (resBuf) { Tcl_WriteRaw(Tcl_GetStackedChannel(dataPtr->self), (char *) resBuf, resLen); @@ -456,7 +456,7 @@ ExecuteCallback( break; } resObj = Tcl_GetObjResult(eval); - resBuf = Tcl_GetByteArrayFromObj(resObj, &resLen); + resBuf = TclGetByteArrayFromObj(resObj, &resLen); if (resBuf) { Tcl_WriteRaw(dataPtr->self, (char *) resBuf, resLen); break; @@ -465,7 +465,7 @@ ExecuteCallback( case TRANSMIT_IBUF: resObj = Tcl_GetObjResult(eval); - resBuf = Tcl_GetByteArrayFromObj(resObj, &resLen); + resBuf = TclGetByteArrayFromObj(resObj, &resLen); if (resBuf) { ResultAdd(&dataPtr->result, resBuf, resLen); break; |