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

* added a check for non-negative integer for bytevector-uint-set!.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-15 23:24:07 -04:00
parent 9488a0706f
commit 14066b3ec9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ikarus.bytevectors.ss
View File

@ -356,7 +356,7 @@
($bytevector-set! x k r))])) ($bytevector-set! x k r))]))
(define (big-uint-set! x k1 n k2) (define (big-uint-set! x k1 n k2)
(cond (cond
[($fx= k1 k2) [($fx= k1 k2)
(unless (zero? n) (unless (zero? n)
(error 'bytevector-uint-set! "value out of range"))] (error 'bytevector-uint-set! "value out of range"))]
[else [else
@ -370,7 +370,8 @@
(unless (bytevector? x) (error who "~s is not a bytevector" x)) (unless (bytevector? x) (error who "~s is not a bytevector" x))
(unless (and (fixnum? k) ($fx>= k 0)) (error who "invalid index ~s" k)) (unless (and (fixnum? k) ($fx>= k 0)) (error who "invalid index ~s" k))
(unless (and (fixnum? size) ($fx>= size 1)) (error who "invalid size ~s" size)) (unless (and (fixnum? size) ($fx>= size 1)) (error who "invalid size ~s" size))
(unless (or (fixnum? n) (bignum? n)) (error who "invalid value ~s" n)) (unless (or (and (fixnum? n) ($fx>= n 0)) (and (bignum? n) (>= n 0)))
(error who "invalid value ~s" n))
(case endianness (case endianness
[(little) (little-uint-set! x k n size)] [(little) (little-uint-set! x k n size)]
[(big) (big-uint-set! x k n ($fx+ k size))] [(big) (big-uint-set! x k n ($fx+ k size))]