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

assume put_byte and put_short get numbers in the right range (looks like its ok)

Browse Source 
svn: r4491
This commit is contained in:
Eli Barzilay 2006-10-05 05:30:50 +00:00
parent 4e7be21178
commit 19ce52a1ea
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mzlib/deflate.ss
View File

@ -1952,8 +1952,8 @@
;; * unused bits in value. ;; * unused bits in value.
;; */ ;; */
(if (> bi_valid (- Buf_size length)) (if (> bi_valid (- Buf_size length))
(begin (set! bi_buf (bitwise-ior bi_buf (<< value bi_valid))) (begin (put_short (bitwise-and (bitwise-ior bi_buf (<< value bi_valid))
(put_short bi_buf) #xFFFF))
(set! bi_buf (>> value (- Buf_size bi_valid))) (set! bi_buf (>> value (- Buf_size bi_valid)))
(set! bi_valid (+ bi_valid (- length Buf_size)))) (set! bi_valid (+ bi_valid (- length Buf_size))))
(begin (set! bi_buf (bitwise-ior bi_buf (<< value bi_valid))) (begin (set! bi_buf (bitwise-ior bi_buf (<< value bi_valid)))
@ -2108,18 +2108,20 @@
len)) len))
;; Assumes being called with c in 0..FF
(define (put_byte c) (define (put_byte c)
(bytes-set! outbuf outcnt (bitwise-and #xFF c)) (bytes-set! outbuf outcnt c)
(set! outcnt (add1 outcnt)) (set! outcnt (add1 outcnt))
(when (= outcnt OUTBUFSIZ) (flush_outbuf))) (when (= outcnt OUTBUFSIZ) (flush_outbuf)))
;; /* Output a 16 bit value, lsb first */ ;; /* Output a 16 bit value, lsb first */
;; Assumes being called with c in 0..FFFF
(define (put_short w) (define (put_short w)
(if (< outcnt (- OUTBUFSIZ 2)) (if (< outcnt (- OUTBUFSIZ 2))
(begin (bytes-set! outbuf outcnt (bitwise-and #xFF w)) (begin (bytes-set! outbuf outcnt (bitwise-and #xFF w))
(bytes-set! outbuf (add1 outcnt) (bitwise-and #xFF (>> w 8))) (bytes-set! outbuf (add1 outcnt) (bitwise-and #xFF (>> w 8)))
(set! outcnt (+ outcnt 2))) (set! outcnt (+ outcnt 2)))
(begin (put_byte w) (begin (put_byte (bitwise-and #xFF w))
(put_byte (>> w 8))))) (put_byte (>> w 8)))))
;; /* Output a 32 bit value to the bit stream, lsb first */ ;; /* Output a 32 bit value to the bit stream, lsb first */