diff options
| -rw-r--r-- | generic/tclZlib.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 98e42ad..114b139 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclZlib.c,v 1.16 2008/12/18 10:37:43 dkf Exp $ + * RCS: @(#) $Id: tclZlib.c,v 1.17 2008/12/20 01:21:04 das Exp $ */ #include "tclInt.h" @@ -2229,7 +2229,7 @@ ChanClose( result = TCL_ERROR; break; } - if (cd->outStream.avail_out != cd->outAllocated) { + if (cd->outStream.avail_out != (unsigned) cd->outAllocated) { if (Tcl_WriteRaw(cd->parent, cd->outBuffer, cd->outAllocated - cd->outStream.avail_out) < 0) { /* TODO: is this the right way to do errors on close? */ @@ -2405,7 +2405,7 @@ ChanSetOption( /* not used */ if (cd->outStream.avail_out > 0) { if (Tcl_WriteRaw(cd->parent, cd->outBuffer, - (int) cd->outStream.next_out) < 0) { + PTR2INT(cd->outStream.next_out)) < 0) { Tcl_AppendResult(interp, "problem flushing channel: ", Tcl_PosixError(interp), NULL); return TCL_ERROR; |