suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix CRC value

Browse Source 
svn: r3088
This commit is contained in:
Eli Barzilay 2006-05-27 18:38:40 +00:00
parent 7523be44de
commit ba4185aea5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/deflate.ss
View File

@ -2035,11 +2035,10 @@
;; * Run a set of bytes through the crc shift register. If s is a NULL ;; * Run a set of bytes through the crc shift register. If s is a NULL
;; * pointer, then initialize the crc shift register contents instead. ;; * pointer, then initialize the crc shift register contents instead.
;; */ ;; */
(define crc 0) (define crc #xffffffff)
(define (updcrc s n) (define (updcrc s n)
;; uch *s; /* pointer to bytes to pump through */ ;; uch *s; /* pointer to bytes to pump through */
;; unsigned n; /* number of bytes in s[] */ ;; unsigned n; /* number of bytes in s[] */
(if s (if s
(let loop ([c crc][p 0]) (let loop ([c crc][p 0])
(if (= p n) (if (= p n)
@ -2223,7 +2222,7 @@
(flush_outbuf) (flush_outbuf)
(values bytes_in bytes_out crc)) (values bytes_in bytes_out (bitwise-xor crc #xffffffff)))
(define (gzip-through-ports in out origname time_stamp) (define (gzip-through-ports in out origname time_stamp)