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

ffi/com: fix an internal cast

Browse Source 
Merge to v5.3
This commit is contained in:
Matthew Flatt 2012-07-19 18:59:38 -06:00
parent 774e254f3c
commit c86ee5b6e2
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/ffi/unsafe/com.rkt
View File

@ -1779,7 +1779,7 @@
(define method-result (define method-result
(if (= inv-kind INVOKE_PROPERTYPUT) (if (= inv-kind INVOKE_PROPERTYPUT)
#f #f
(cast (malloc 'atomic _VARIANT) _pointer _VARIANT-pointer))) (cast (malloc 'atomic _VARIANT) _pointer (_gcable _VARIANT-pointer))))
(when method-result (when method-result
(VariantInit method-result)) (VariantInit method-result))
(define-values (hr exn-info error-index) (define-values (hr exn-info error-index)