ffi/com: fix an internal cast

Merge to v5.3 (cherry picked from commit c86ee5b6e2)
2012-07-19 18:59:38 -06:00 · 2012-07-19 18:59:38 -06:00 · f04778f4d5
commit f04778f4d5
parent 61e890ba15
1 changed files with 1 additions and 1 deletions
--- a/collects/ffi/unsafe/com.rkt
+++ b/collects/ffi/unsafe/com.rkt
@ -1779,7 +1779,7 @@
           (define method-result
             (if (= inv-kind INVOKE_PROPERTYPUT)
                 #f
-                 (cast (malloc 'atomic _VARIANT) _pointer _VARIANT-pointer)))
+                 (cast (malloc 'atomic _VARIANT) _pointer (_gcable _VARIANT-pointer))))
           (when method-result
             (VariantInit method-result))
 	   (define-values (hr exn-info error-index)