From f1ff9c60591583d7dac38b21cc698d773e50cdfb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 Sep 2012 07:54:04 -0600 Subject: [PATCH] ffi/com: fix unmarshal of by-ref results --- collects/ffi/unsafe/com.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/ffi/unsafe/com.rkt b/collects/ffi/unsafe/com.rkt index 8a09fb1a87..b2a127a192 100644 --- a/collects/ffi/unsafe/com.rkt +++ b/collects/ffi/unsafe/com.rkt @@ -1195,6 +1195,8 @@ `(array ? ,(vt-to-scheme-type (- vt VT_ARRAY)))] [(= vt (bitwise-ior VT_USERDEFINED VT_BYREF)) 'iunknown] + [(= VT_BYREF (bitwise-and vt VT_BYREF)) + `(box ,(vt-to-scheme-type (- vt VT_BYREF)))] [else (string->symbol (format "COM-0x~x" vt))])]))