diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-03-04 17:52:34 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-03-04 17:52:34 (GMT) |
| commit | e7ae31d6d3e1a343991401b5795fc1b04c6e8236 (patch) | |
| tree | b6fa142761ea79c1e85988d863c11b5e16f6d1c9 | |
| parent | 4c420cfc0c8b98ec83ac96e46902749d47720223 (diff) | |
| download | tcl-e7ae31d6d3e1a343991401b5795fc1b04c6e8236.zip tcl-e7ae31d6d3e1a343991401b5795fc1b04c6e8236.tar.gz tcl-e7ae31d6d3e1a343991401b5795fc1b04c6e8236.tar.bz2 | |
Related corrections
| -rw-r--r-- | ChangeLog | 1 | ||||
| -rw-r--r-- | generic/tclZlib.c | 8 |
2 files changed, 5 insertions, 4 deletions
@@ -2,6 +2,7 @@ * generic/tclZlib.c (TclZlibCmd): Checksums are defined to be unsigned 32-bit integers, use Tcl_WideInt to pass to scripts. [Bug 2662434] + (ZlibStreamCmd, ChanGetOption): A few other related corrections. 2009-02-27 Jan Nijtmans <nijtmans@users.sf.net> 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; |