From a736dcf6bfb85d14602c9c5cdfcac0182b3bb26b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 30 Dec 2010 07:40:42 -0700 Subject: [PATCH] fix `{g,s}et-argb-pixels' bytes-length test --- collects/racket/draw/private/bitmap.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/racket/draw/private/bitmap.rkt b/collects/racket/draw/private/bitmap.rkt index d4f331d934..916dd8a0db 100644 --- a/collects/racket/draw/private/bitmap.rkt +++ b/collects/racket/draw/private/bitmap.rkt @@ -574,7 +574,7 @@ [exact-nonnegative-integer? h] [bytes? bstr] [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) "byte string is too short: " bstr)) @@ -653,7 +653,7 @@ [exact-nonnegative-integer? h] [bytes? bstr] [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) "byte string is too short: " bstr))