diff options
author | das <das@noemail.net> | 2008-12-20 01:21:04 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2008-12-20 01:21:04 (GMT) |
commit | 5ff03b566994e6f5a26e324e92b7951fceb8b307 (patch) | |
tree | 8c3c566b69956a870bc02536f17e19d548dc5bf5 /generic/tclZlib.c | |
parent | 06fc11f6a8f6e48001759e68a109ecfe856cf127 (diff) | |
download | tcl-5ff03b566994e6f5a26e324e92b7951fceb8b307.zip tcl-5ff03b566994e6f5a26e324e92b7951fceb8b307.tar.gz tcl-5ff03b566994e6f5a26e324e92b7951fceb8b307.tar.bz2 |
fix warnings
FossilOrigin-Name: 2b3316aba9faf1336f220cc9581446ac29d8224b
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; |