windows.com: Prevent release from being called with f, which causes a

segfault.
db4
Doug Coleman 2015-06-06 17:04:02 -07:00
parent 2bac4a9695
commit 37e7349dee
1 changed files with 2 additions and 1 deletions

View File

@ -92,8 +92,9 @@ FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium ) ;
: com-add-ref ( interface -- interface )
[ IUnknown::AddRef drop ] keep ; inline
ERROR: null-com-release ;
: com-release ( interface -- )
IUnknown::Release drop ; inline
[ IUnknown::Release drop ] [ null-com-release ] if* ; inline
: with-com-interface ( interface quot -- )
over [ com-release ] curry [ ] cleanup ; inline