OSCL/Deflate
2
0
Fork 0
mirror of https://github.com/pmai/Deflate.git synced 2025-12-21 21:14:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add work-around bit-stream-read-bits for ecl bug in (unsigned-byte 8) negation.

Browse Source 
The compiler in ecl version 10.7.1 generates erroneous code for the negation
of bits in bit-stream-read-bits if bits is declared as an (unsigned-byte 8).
Hence we declare bits as a (signed-byte 8) for ecl, given that ecl does not
generate optimal code in either case, but correct code for the later case.
This commit is contained in:
Pierre R. Mai
2010-10-08 20:14:37 +02:00
parent b18f8fa1da
commit 929d3f9bc9
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
deflate.lisp
View File

@ -287,7 +287,8 @@
(declaim (inline bit-stream-read-bits)) (declaim (inline bit-stream-read-bits))
(defun bit-stream-read-bits (stream bits) (defun bit-stream-read-bits (stream bits)
(declare (type bit-stream stream) (type (unsigned-byte 8) bits)) (declare (type bit-stream stream) (type #-ecl (unsigned-byte 8)
#+ecl (signed-byte 8) bits))
"Read single or multiple bits from the given bit-stream." "Read single or multiple bits from the given bit-stream."
(loop while (< (bit-stream-bit-count stream) bits) (loop while (< (bit-stream-bit-count stream) bits)
do do