From 78635775b60bc6599d933519406507b264cec06e Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Thu, 1 Dec 2005 03:22:09 +0000
Subject: * generic/tkImgGIF.c: cast calls to block_out
FossilOrigin-Name: 06966646168f56399a7cf36e9309a70e1677d5fc
---
ChangeLog | 4 +++-
generic/tkImgGIF.c | 6 +++---
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 96cd153..08ab9c2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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();
}
--
cgit v0.12