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

JPEG decoding: remove extra allocation

Browse Source
This commit is contained in:
Matthew Flatt 2012-12-22 09:42:21 -07:00
parent 1545ed42c8
commit f4285e4e86
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -598,7 +598,7 @@
(jpeg_set_defaults c) (jpeg_set_defaults c)
(jpeg_set_quality c quality #t) (jpeg_set_quality c quality #t)
(jpeg_start_compress c #t) (jpeg_start_compress c #t)
(let-values ([(samps bstr) (create-jpeg-sample-array c (* width height 3))] (let-values ([(samps bstr) (create-jpeg-sample-array c (* width 3))]
[(A R G B) (argb-indices)]) [(A R G B) (argb-indices)])
(cairo_surface_flush s) (cairo_surface_flush s)
(let* ([dest (cairo_image_surface_get_data s)] (let* ([dest (cairo_image_surface_get_data s)]