Tcl Source Code

Check-in [9e464ab00d]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:D'oh!
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-400-impl
Files: files | file ages | folders
SHA1: 9e464ab00d2149fb06cc52cc220b15dd79c8eb9c
User & Date: dkf 2012-03-31 14:06:43
Context
2012-03-31
15:16
Another step on the road to implementation. check-in: 928447f7d2 user: dkf tags: tip-400-impl
14:06
D'oh! check-in: 9e464ab00d user: dkf tags: tip-400-impl
13:48
Start of implementation of TIP 400: zlib improvements check-in: 359ebdf668 user: dkf tags: tip-400-impl
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclZlib.c.

860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
 *	Return the checksum of the uncompressed data seen so far by the
 *	stream.
 *
 *----------------------------------------------------------------------
 */

int
Tcl_ZlibStreamGetZstreamp(
    Tcl_ZlibStream zshandle)	/* As obtained from Tcl_ZlibStreamInit */
{
    ZlibStreamHandle *zshPtr = (ZlibStreamHandle *) zshandle;

    return zshPtr->stream.adler;
}








|







860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
 *	Return the checksum of the uncompressed data seen so far by the
 *	stream.
 *
 *----------------------------------------------------------------------
 */

int
Tcl_ZlibStreamChecksum(
    Tcl_ZlibStream zshandle)	/* As obtained from Tcl_ZlibStreamInit */
{
    ZlibStreamHandle *zshPtr = (ZlibStreamHandle *) zshandle;

    return zshPtr->stream.adler;
}