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