summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-12-28 22:13:30 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-12-28 22:13:30 (GMT)
commit474bd9cda9c65a64819dd2992b1eb7cf3de2ca24 (patch)
treef5bfccd1a6d222f2653a38672d42c9ec0d6ef26a /generic
parent3a2e04878104594ff8c0163ef829a0492abe13bd (diff)
downloadtk-474bd9cda9c65a64819dd2992b1eb7cf3de2ca24.zip
tk-474bd9cda9c65a64819dd2992b1eb7cf3de2ca24.tar.gz
tk-474bd9cda9c65a64819dd2992b1eb7cf3de2ca24.tar.bz2
Applied Michael Kirkham's fix to make all PngSuite images work.
Diffstat (limited to 'generic')
-rw-r--r--generic/tkImgPNG.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tkImgPNG.c b/generic/tkImgPNG.c
index eb5ef7c..73ffa46 100644
--- a/generic/tkImgPNG.c
+++ b/generic/tkImgPNG.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkImgPNG.c,v 1.1 2008/12/28 13:08:39 dkf Exp $
+ * RCS: @(#) $Id: tkImgPNG.c,v 1.2 2008/12/28 22:13:31 dkf Exp $
*/
#include "tkInt.h"
@@ -2054,14 +2054,13 @@ ReadIDAT(
}
inputObj = Tcl_NewObj();
- Tcl_SetByteArrayLength(inputObj, PNG_BLOCK_SZ);
Tcl_IncrRefCount(inputObj);
+ inputPtr = Tcl_SetByteArrayLength(inputObj, blockSz);
/*
* Read the next bit of IDAT chunk data, up to read buffer size.
*/
- inputPtr = Tcl_GetByteArrayFromObj(inputObj, NULL);
if (ReadData(interp, pngPtr, inputPtr, blockSz,
&crc) == TCL_ERROR) {
Tcl_DecrRefCount(inputObj);