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

ffi/com: fix unmarshal of by-ref results

Browse Source
This commit is contained in:
Matthew Flatt 2012-09-01 07:54:04 -06:00
parent eb7fd51d02
commit f1ff9c6059
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/ffi/unsafe/com.rkt
View File

@ -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))])]))