steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/windows/com/com.factor
View File

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