diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tkImgGIF.c | 6 |
2 files changed, 6 insertions, 4 deletions
@@ -1,6 +1,6 @@ 2005-12-01 Daniel Steffen <das@users.sourceforge.net> - * unix/tcl.m4 (Darwin): fixed error when MACOSX_DEPLOYMENT_TARGET unset. + * unix/tcl.m4 (Darwin): fixed error when MACOSX_DEPLOYMENT_TARGET unset * unix/configure: regen. * macosx/tkMacOSXCarbonEvents.c (TkMacOSXInitCarbonEvents): added newly @@ -8,6 +8,8 @@ 2005-11-30 Jeff Hobbs <jeffh@ActiveState.com> + * generic/tkImgGIF.c: cast calls to block_out + * win/Makefile.in: place TCL_BIN_DIR first in PATH for targets to get Tcl built dll first. diff --git a/generic/tkImgGIF.c b/generic/tkImgGIF.c index 3a4246a..42a3132 100644 --- a/generic/tkImgGIF.c +++ b/generic/tkImgGIF.c @@ -29,7 +29,7 @@ * | provided "as is" without express or implied warranty. | * +-------------------------------------------------------------------+ * - * RCS: @(#) $Id: tkImgGIF.c,v 1.24.2.2 2005/06/20 10:28:00 dkf Exp $ + * RCS: @(#) $Id: tkImgGIF.c,v 1.24.2.3 2005/12/01 03:22:10 hobbs Exp $ */ /* @@ -1838,7 +1838,7 @@ output(val) obuf |= val << obits; obits += out_bits; while (obits >= 8) { - block_out(obuf&0xff); + block_out(UCHAR(obuf&0xff)); obuf >>= 8; obits -= 8; } @@ -1850,7 +1850,7 @@ output_flush() { DEBUGMSG(("output_flush\n")); if (obits > 0) { - block_out(obuf); + block_out(UCHAR(obuf)); } block_flush(); } |