summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-03-04 17:52:34 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-03-04 17:52:34 (GMT)
commite7ae31d6d3e1a343991401b5795fc1b04c6e8236 (patch)
treeb6fa142761ea79c1e85988d863c11b5e16f6d1c9 /generic
parent4c420cfc0c8b98ec83ac96e46902749d47720223 (diff)
downloadtcl-e7ae31d6d3e1a343991401b5795fc1b04c6e8236.zip
tcl-e7ae31d6d3e1a343991401b5795fc1b04c6e8236.tar.gz
tcl-e7ae31d6d3e1a343991401b5795fc1b04c6e8236.tar.bz2
Related corrections
Diffstat (limited to 'generic')
-rw-r--r--generic/tclZlib.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c
index 968c0ed..7bac35a 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.25 2009/03/04 17:26:23 dkf Exp $
+ * RCS: @(#) $Id: tclZlib.c,v 1.26 2009/03/04 17:52:34 dkf Exp $
*/
#include "tclInt.h"
@@ -2264,7 +2264,7 @@ ZlibStreamCmd(
Tcl_WrongNumArgs(interp, 2, objv, NULL);
return TCL_ERROR;
}
- Tcl_SetIntObj(obj, Tcl_ZlibStreamChecksum(zstream));
+ Tcl_SetWideIntObj(obj, (Tcl_WideInt) Tcl_ZlibStreamChecksum(zstream));
return TCL_OK;
case zs_reset: /* $strm reset */
if (objc != 2) {
@@ -2529,7 +2529,7 @@ ChanGetOption(
crc = cd->inStream.adler;
}
- sprintf(buf, "0x%lx", crc);
+ sprintf(buf, "%lu", crc);
if (optionName == NULL) {
Tcl_DStringAppendElement(dsPtr, "-checksum");
Tcl_DStringAppendElement(dsPtr, buf);
@@ -2838,7 +2838,7 @@ Tcl_ZlibStreamEof(
}
int
-Tcl_ZlibStreamAdler32(
+Tcl_ZlibStreamChecksum(
Tcl_ZlibStream zshandle)
{
return 0;