Subject: crc field from zlib data should be treated as unsigned for 64bit support [Bug 2046846]

From: patthoyts <[email-masked]>
Date: Mon, 11 Aug 2008 14:36:07 +0000

---
 ChangeLog             | 5 +++++
 library/http/http.tcl | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b8f0c03..4ea4d81 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-08-11  Pat Thoyts  <[email-masked]>
+
+	* library/http/http.tcl: crc field from zlib data should be treated as
+	unsigned for 64bit support [Bug 2046846]
+
 2008-08-08  Don Porter  <[email-masked]>
 
 	*** 8.5.4 TAGGED FOR RELEASE ***
diff --git a/library/http/http.tcl b/library/http/http.tcl
index 84a1da2..c07ae2c 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution of
 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: http.tcl,v 1.67 2008/03/12 10:01:02 hobbs Exp $
+# RCS: @(#) $Id: http.tcl,v 1.67.2.1 2008/08/11 14:36:09 patthoyts Exp $
 
 package require Tcl 8.4
 # Keep this in sync with pkgIndex.tcl and with the install directories
@@ -1406,7 +1406,7 @@ proc http::Gunzip {data} {
         incr pos
     }
 
-    binary scan [string range $data end-7 end] ii crc size
+    binary scan [string range $data end-7 end] iuiu crc size
     set inflated [zlib inflate [string range $data $pos end-8]]
 
     if { $crc != [set chk [zlib crc32 $inflated]] } {
-- 
cgit v0.12