diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-29 08:37:13 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-29 08:37:13 (GMT) |
| commit | 640db582e6fa3d39d1ea265cca917c685b6fc6fa (patch) | |
| tree | bf66ad0acc062d1662722f2072b884c807028e7e /generic/tclZlib.c | |
| parent | 277825e13ed2db3cf16a3de3314dce35cae77e60 (diff) | |
| parent | 56c27768c74c1c2f87ba61bc80a5028eb4fbdf1a (diff) | |
| download | tcl-640db582e6fa3d39d1ea265cca917c685b6fc6fa.zip tcl-640db582e6fa3d39d1ea265cca917c685b6fc6fa.tar.gz tcl-640db582e6fa3d39d1ea265cca917c685b6fc6fa.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index ff360d6..0c11bb4 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -1148,7 +1148,7 @@ int Tcl_ZlibStreamChecksum( Tcl_ZlibStream zshandle) /* As obtained from Tcl_ZlibStreamInit */ { - ZlibStreamHandle *zshPtr = (ZlibStreamHandle *) zshandle; + ZlibStreamHandle *zshPtr = (ZlibStreamHandle *)zshandle; return zshPtr->stream.adler; } @@ -2018,8 +2018,8 @@ ZlibCmd( if (objc < 4) { start = Tcl_ZlibAdler32(0, NULL, 0); } - Tcl_SetObjResult(interp, Tcl_NewWideIntObj((Tcl_WideInt) - (uLong) Tcl_ZlibAdler32(start, data, dlen))); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj( + Tcl_ZlibAdler32(start, data, dlen))); return TCL_OK; case CMD_CRC: /* crc32 str ?startvalue? * -> checksum */ @@ -2038,8 +2038,8 @@ ZlibCmd( if (objc < 4) { start = Tcl_ZlibCRC32(0, NULL, 0); } - Tcl_SetObjResult(interp, Tcl_NewWideIntObj((Tcl_WideInt) - (uLong) Tcl_ZlibCRC32(start, data, dlen))); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj( + Tcl_ZlibCRC32(start, data, dlen))); return TCL_OK; case CMD_DEFLATE: /* deflate data ?level? * -> rawCompressedData */ @@ -2700,8 +2700,8 @@ ZlibStreamCmd( Tcl_WrongNumArgs(interp, 2, objv, NULL); return TCL_ERROR; } - Tcl_SetObjResult(interp, Tcl_NewWideIntObj((Tcl_WideInt) - (uLong) Tcl_ZlibStreamChecksum(zstream))); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj( + Tcl_ZlibStreamChecksum(zstream))); return TCL_OK; case zs_reset: /* $strm reset */ if (objc != 2) { |