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

fix `{g,s}et-argb-pixels' bytes-length test

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-30 07:40:42 -07:00
parent 7069a267a6
commit a736dcf6bf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/draw/private/bitmap.rkt
View File

@ -574,7 +574,7 @@
[exact-nonnegative-integer? h] [exact-nonnegative-integer? h]
[bytes? bstr] [bytes? bstr]
[any? [get-alpha? #f]]) [any? [get-alpha? #f]])
(unless ((bytes-length bstr) . > . (* w h)) (unless ((bytes-length bstr) . >= . (* w h 4))
(raise-mismatch-error (method-name 'bitmap% 'get-argb-pixels) (raise-mismatch-error (method-name 'bitmap% 'get-argb-pixels)
"byte string is too short: " "byte string is too short: "
bstr)) bstr))
@ -653,7 +653,7 @@
[exact-nonnegative-integer? h] [exact-nonnegative-integer? h]
[bytes? bstr] [bytes? bstr]
[any? [set-alpha? #f]]) [any? [set-alpha? #f]])
(unless ((bytes-length bstr) . > . (* w h)) (unless ((bytes-length bstr) . >= . (* w h 4))
(raise-mismatch-error (method-name 'bitmap% 'set-argb-pixels) (raise-mismatch-error (method-name 'bitmap% 'set-argb-pixels)
"byte string is too short: " "byte string is too short: "
bstr)) bstr))