Support Link Time Optimization (off by default)

[factor.git] / basis / windows / com / com.factor

diff --git a/basis/windows/com/com.factor b/basis/windows/com/com.factor
index 36a83de95216dfd0ec9a6d12dbc46fd89203a288..2e9d2380aead59d2062815b8d1f7fb8abefb8fee 100644 (file)
--- a/basis/windows/com/com.factor
+++ b/basis/windows/com/com.factor
@@ -40,11 +40,6 @@ COM-INTERFACE: IDropTarget IUnknown {00000122-0000-0000-C000-000000000046}
     HRESULT DragOver ( DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
     HRESULT DragLeave ( )
     HRESULT Drop ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect ) ;
-
-TYPEDEF: LPWSTR LPCOLESTR
-TYPEDEF: LPWSTR OLESTR
-TYPEDEF: OLESTR** SNB
-TYPEDEF: wchar_t* OLECHAR
 C-TYPE: IEnumSTATSTG
 
 STRUCT: STATSTG
@@ -60,6 +55,7 @@ STRUCT: STATSTG
     { grfStateBits DWORD }
     { reserved DWORD } ;
 
+C-TYPE: IStream
 COM-INTERFACE: IStorage IUnknown {0000000B-0000-0000-C000-000000000046}
     HRESULT Commit ( DWORD grfCommitFlags )
     HRESULT CopyTo ( DWORD ciidExclude, IID *rgiidExclude, SNB snbExclude, IStorage *pstgDest )
@@ -134,7 +130,7 @@ FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium )
     with-out-parameters ;
 
 : com-add-ref ( interface -- interface )
-     [ IUnknown::AddRef drop ] keep ; inline
+    [ IUnknown::AddRef drop ] keep ; inline
 
 ERROR: null-com-release ;
 : com-release ( interface -- )