summaryrefslogtreecommitdiffstats
path: root/generic/tclZlib.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-05-17 11:17:27 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-05-17 11:17:27 (GMT)
commit292c03d1c289ed9aae8eac6aba53c1857e4bf90d (patch)
tree9576fec9f197250b00a54b86af11f92a9921b9e3 /generic/tclZlib.c
parent53b939e3bc6f9b4995c798d45dada91369aa82ad (diff)
parentaf999a3a2c4770f8654059f5c5b50d766cc88c7f (diff)
downloadtcl-292c03d1c289ed9aae8eac6aba53c1857e4bf90d.zip
tcl-292c03d1c289ed9aae8eac6aba53c1857e4bf90d.tar.gz
tcl-292c03d1c289ed9aae8eac6aba53c1857e4bf90d.tar.bz2
Merge 8.7
Diffstat (limited to 'generic/tclZlib.c')
-rw-r--r--generic/tclZlib.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c
index 8a95fd5..3d2f4cc 100644
--- a/generic/tclZlib.c
+++ b/generic/tclZlib.c
@@ -1373,7 +1373,7 @@ Tcl_ZlibStreamGet(
Tcl_DecrRefCount(zshPtr->currentInput);
zshPtr->currentInput = NULL;
}
- TclListObjLength(NULL, zshPtr->inData, &listLen);
+ TclListObjLengthM(NULL, zshPtr->inData, &listLen);
if (listLen > 0) {
/*
* There is more input available, get it from the list and
@@ -1422,7 +1422,7 @@ Tcl_ZlibStreamGet(
e = inflate(&zshPtr->stream, zshPtr->flush);
}
};
- TclListObjLength(NULL, zshPtr->inData, &listLen);
+ TclListObjLengthM(NULL, zshPtr->inData, &listLen);
while ((zshPtr->stream.avail_out > 0)
&& (e == Z_OK || e == Z_BUF_ERROR) && (listLen > 0)) {
@@ -1502,7 +1502,7 @@ Tcl_ZlibStreamGet(
inflateEnd(&zshPtr->stream);
}
} else {
- TclListObjLength(NULL, zshPtr->outData, &listLen);
+ TclListObjLengthM(NULL, zshPtr->outData, &listLen);
if (count == TCL_INDEX_NONE) {
count = 0;
for (i=0; i<listLen; i++) {
@@ -1524,7 +1524,7 @@ Tcl_ZlibStreamGet(
dataPtr += existing;
while ((count > dataPos) &&
- (TclListObjLength(NULL, zshPtr->outData, &listLen) == TCL_OK)
+ (TclListObjLengthM(NULL, zshPtr->outData, &listLen) == TCL_OK)
&& (listLen > 0)) {
/*
* Get the next chunk off our list of chunks and grab the data out