diff options
author | dkf <dkf@noemail.net> | 2009-03-04 17:52:34 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2009-03-04 17:52:34 (GMT) |
commit | decb521eb9d0f2df1c5da655f3ed443e789291b1 (patch) | |
tree | b6fa142761ea79c1e85988d863c11b5e16f6d1c9 /generic/tclZlib.c | |
parent | a832fd0398ecc4b9e1daa9ec1d6d0f273efee56a (diff) | |
download | tcl-decb521eb9d0f2df1c5da655f3ed443e789291b1.zip tcl-decb521eb9d0f2df1c5da655f3ed443e789291b1.tar.gz tcl-decb521eb9d0f2df1c5da655f3ed443e789291b1.tar.bz2 |
Related corrections
FossilOrigin-Name: 2693844b2e76ae7759286546a13686561f4c0cc1
Diffstat (limited to 'generic/tclZlib.c')
-rw-r--r-- | generic/tclZlib.c | 8 |
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; |