conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

removed one implicit dependency on mp_bits_per_limb in ikarus.bytevectors.ss

This commit is contained in:
Abdulaziz Ghuloum 2008-01-01 05:30:51 -05:00
parent 993a3ad6c4
commit 8538098043
2 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
scheme/ikarus.bytevectors.ss
View File

@ -850,20 +850,11 @@
(unless ($fx= i j) (unless ($fx= i j)
($bytevector-set! x i 255) ($bytevector-set! x i 255)
(bv-neg-zero! x ($fxadd1 i) j))) (bv-neg-zero! x ($fxadd1 i) j)))
(define (bignum-bytes n) (define (bignum-bytes n)
(let ([i ($bignum-size n)]) (let f ([n n] [i ($bignum-size n)])
(let ([i-1 ($fxsub1 i)]) (let ([i-1 ($fxsub1 i)])
(if ($fxzero? ($bignum-byte-ref n i-1)) (if ($fxzero? ($bignum-byte-ref n i-1))
(let ([i-2 ($fxsub1 i-1)]) (f n i-1)
(if ($fxzero? ($bignum-byte-ref n i-2))
(let ([i-3 ($fxsub1 i-2)])
(if ($fxzero? ($bignum-byte-ref n i-3))
(let ([i-4 ($fxsub1 i-3)])
(if ($fxzero? ($bignum-byte-ref n i-4))
(die 'bignum-bytes "BUG: malformed bignum")
i-3))
i-2))
i-1))
i)))) i))))
(define (make-bytevector-uint-set! who) (define (make-bytevector-uint-set! who)
(lambda (x k n endianness size) (lambda (x k n endianness size)

2
scheme/last-revision
View File

@ -1 +1 @@
1304 1305