Fix [73d5cb615e]: zlib-8.8, zlib-8.16 fail on Fedora 40, gcc 14.1.1

changes.md

@@ -6,9 +6,8 @@ changes to the Tcl source code at
 
 Release Tcl 9.0.1 arises from the check-in with tag `core-9-0-1`.
 
-The changes since Tcl 9.0.0 include...
-
-
+## Changes since Tk 9.0.0
+ - [zlib-8.8, zlib-8.16 fail on Fedora 40, gcc 14.1.1](https://core.tcl-lang.org/tcl/tktview/73d5cb)
 
 Release Tcl 9.0.0 arises from the check-in with tag `core-9-0-0`.
 
@@ -147,6 +146,5 @@ writing Tcl scripts.
 # Known bugs
  - [changed behaviour wrt command names, namespaces and resolution](https://core.tcl-lang.org/tcl/tktview/f14b33)
  - [windows dos device paths inconsistencies and missing functionality](https://core.tcl-lang.org/tcl/tktview/d8f121)
- - [zlib-8.8, zlib-8.16 fail on Fedora 40, gcc 14.1.1](https://core.tcl-lang.org/tcl/tktview/73d5cb)
  - [Temporary folder with file "tcl9registry13.dll" remains after "exit"](https://core.tcl-lang.org/tcl/tktview/6ce3c0)
 

tests/zlib.test

@@ -320,13 +320,12 @@ test zlib-8.8 {transformation and fconfigure} -setup {
     chan close $outSide
     set compressed [read $inSide]
     catch {zlib decompress $compressed} err opt
-    list [string length [zlib compress $spdyHeaders]] \
-	[string length $compressed] \
+    list [string length [zlib decompress [zlib compress $spdyHeaders]]] \
 	$err [dict get $opt -errorcode] [zlib adler32 $spdyDict]
 } -cleanup {
     catch {close $outSide}
     catch {close $inSide}
-} -result {260 222 {need dictionary} {TCL ZLIB NEED_DICT 2381337010} 2381337010}
+} -result {358 {need dictionary} {TCL ZLIB NEED_DICT 2381337010} 2381337010}
 test zlib-8.9 {transformation and fconfigure} -setup {
     lassign [chan pipe] inSide outSide
     set strm [zlib stream decompress]
@@ -464,10 +463,10 @@ test zlib-8.16 {Bug 3603553: buffer transfer with large writes} -setup {
     zlib push gzip $f
     puts -nonewline $f $largeData
     close $f
-    file size $file
+    expr {[file size $file]<57648}
 } -cleanup {
     removeFile $file
-} -result 57647
+} -result 1
 test zlib-8.17 {Bug dd260aaf: fconfigure} -setup {
     lassign [chan pipe] inSide outSide
 } -constraints zlib -body {