diff options
| -rw-r--r-- | generic/tclZlib.c | 24 |
1 files changed, 7 insertions, 17 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 82486d2..37a1c09 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -3118,25 +3118,15 @@ ZlibTransformOutput( do { e = Deflate(&cd->outStream, cd->outBuffer, cd->outAllocated, Z_NO_FLUSH, &produced); + if (e != Z_OK || produced == 0) { + break; + } - if ((e == Z_OK && produced > 0) || e == Z_BUF_ERROR) { - /* - * deflate() indicates that it is out of space by returning - * Z_BUF_ERROR *or* by simply returning Z_OK with no remaining - * space; in either case, we must write the whole buffer out and - * retry to compress what is left. - */ - - if (e == Z_BUF_ERROR) { - produced = cd->outAllocated; - e = Z_OK; - } - if (Tcl_WriteRaw(cd->parent, cd->outBuffer, produced) < 0) { - *errorCodePtr = Tcl_GetErrno(); - return -1; - } + if (Tcl_WriteRaw(cd->parent, cd->outBuffer, produced) < 0) { + *errorCodePtr = Tcl_GetErrno(); + return -1; } - } while (e == Z_OK && produced > 0 && cd->outStream.avail_in > 0); + } while (cd->outStream.avail_in > 0); if (e == Z_OK) { return toWrite - cd->outStream.avail_in; |