Tcl Source Code: Artifact [e61833d516]

Artifact e61833d516ecf96ce4db1eb9b3608600f9c7fb4a4ec4881eb701a22416bf376e:

Attachment "0001-generic-tclZlib.c-HAVE_ZLIB-Fix-some-bitrot.patch" to ticket [0386e9a967] added by anonymous 2022-01-07 16:20:49. (unpublished)

From a6ff757ab79d755759ac77b1137cf9639b0a2bb7 Mon Sep 17 00:00:00 2001
From: Benjamin Riefenstahl <[email protected]>
Date: Sat, 18 Dec 2021 19:16:06 +0100
Subject: [PATCH] generic/tclZlib.c (!HAVE_ZLIB): Fix some bitrot.

---
 generic/tclZlib.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclZlib.c b/generic/tclZlib.c
index c9bc77fca..fc29b50af 100644
--- a/generic/tclZlib.c
+++ b/generic/tclZlib.c
@@ -4073,7 +4073,7 @@ Tcl_ZlibInflate(
 unsigned int
 Tcl_ZlibCRC32(
     unsigned int crc,
-    const char *buf,
+    const unsigned char *buf,
     int len)
 {
     return 0;
@@ -4082,7 +4082,7 @@ Tcl_ZlibCRC32(
 unsigned int
 Tcl_ZlibAdler32(
     unsigned int adler,
-    const char *buf,
+    const unsigned char *buf,
     int len)
 {
     return 0;
-- 
2.30.2