diff options
| author | das <das> | 2008-12-20 01:21:04 (GMT) |
|---|---|---|
| committer | das <das> | 2008-12-20 01:21:04 (GMT) |
| commit | 2124aa0e1e3e8107355f56d440526c4437519824 (patch) | |
| tree | 8c3c566b69956a870bc02536f17e19d548dc5bf5 /generic/tclZlib.c | |
| parent | a35311fd266c5c697d84b6756f65b208701578d7 (diff) | |
| download | tcl-2124aa0e1e3e8107355f56d440526c4437519824.zip tcl-2124aa0e1e3e8107355f56d440526c4437519824.tar.gz tcl-2124aa0e1e3e8107355f56d440526c4437519824.tar.bz2 | |
fix warnings
Diffstat (limited to 'generic/tclZlib.c')
| -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; |