Tcl Source Code

Seen on Fedora 40, gcc 14. Not seen on Windows or Ubuntu 20 (gcc 9).

```
Tests began at Wed Jul 31 12:27:10 CEST 2024
zlib.test


==== zlib-8.8 transformation and fconfigure FAILED
==== Contents of test case:

    zlib push compress $outSide -dictionary $spdyDict
    fconfigure $outSide -blocking 1 -translation binary -buffering none
    fconfigure $inSide -blocking 1 -translation binary
    puts -nonewline $outSide $spdyHeaders
    chan pop $outSide
    chan close $outSide
    set compressed [read $inSide]
    catch {zlib decompress $compressed} err opt
    list [string length [zlib compress $spdyHeaders]]  [string length $compressed]  $err [dict get $opt -errorcode] [zlib adler32 $spdyDict]

---- Result was:
261 227 {need dictionary} {TCL ZLIB NEED_DICT 2381337010} 2381337010
---- Result should have been (exact matching):
260 222 {need dictionary} {TCL ZLIB NEED_DICT 2381337010} 2381337010
==== zlib-8.8 FAILED



==== zlib-8.16 Bug 3603553: buffer transfer with large writes FAILED
==== Contents of test case:

    set f [open $file wb]
    fconfigure $f -buffering none
    zlib push gzip $f
    puts -nonewline $f $largeData
    close $f
    file size $file

---- Result was:
54408
---- Result should have been (exact matching):
57647
==== zlib-8.16 FAILED


Tests ended at Wed Jul 31 12:27:11 CEST 2024
all.tcl:        Total   73      Passed  69      Skipped 2       Failed  2

```