Added stubs for CoRevokeClassObject and OleSetClipboard.

ole/compobj.c

@@ -721,6 +721,14 @@ OLESTATUS WINAPI CoRegisterClassObject32(
 }
 
 /***********************************************************************
+ *           CoRevokeClassObject [OLE32.40]
+ */
+HRESULT WINAPI CoRevokeClassObject(DWORD dwRegister) {
+    FIXME(ole,"(%08lx),stub!\n",dwRegister);
+    return S_OK;
+}
+
+/***********************************************************************
  *           CoGetClassObject [COMPOBJ.7]
  */
 HRESULT WINAPI CoGetClassObject(REFCLSID rclsid, DWORD dwClsContext,

ole/ole2.c

@@ -54,6 +54,15 @@ HRESULT WINAPI OleFlushClipboard()
     return S_OK;
 }
 
+/***********************************************************************
+ *           OleSetClipboard     [OLE32.127]
+ */
+HRESULT WINAPI OleSetClipboard(LPVOID pDataObj)
+{
+    FIXME(ole,"(%p), stub!\n", pDataObj);
+    return S_OK;
+}
+
 /******************************************************************************
  *		CoRegisterMessageFilter32	[OLE32.38]
  */
@@ -131,7 +140,7 @@ HRESULT WINAPI RevokeDragDrop32(
  */
 HRESULT WINAPI CreateBindCtx32 (DWORD reserved,	LPVOID *ppbc)
 {
-    FIXME(ole,"(0x%08x %p): stub!\n", reserved, ppbc);
+    FIXME(ole,"(0x%08lx %p): stub!\n", reserved, ppbc);
     *ppbc = 0;
 //    return S_OK;
     return E_OUTOFMEMORY;

relay32/ole32.spec

@@ -40,7 +40,7 @@ type	win32
  37 stub CoRegisterMallocSpy
  38 stdcall CoRegisterMessageFilter(ptr ptr) CoRegisterMessageFilter32
  39 stub CoReleaseMarshalData
- 40 stub CoRevokeClassObject
+ 40 stdcall CoRevokeClassObject(long) CoRevokeClassObject
  41 stub CoRevokeMallocSpy
  42 stdcall CoSetState(ptr) CoSetState32
  43 stdcall CoTaskMemAlloc(long) CoTaskMemAlloc
@@ -127,7 +127,7 @@ type	win32
 124 stub OleSave
 125 stub OleSaveToStream
 126 stub OleSetAutoConvert
-127 stub OleSetClipboard
+127 stdcall OleSetClipboard(ptr) OleSetClipboard
 128 stub OleSetContainedObject
 129 stub OleSetMenuDescriptor
 130 stub OleTranslateAccelerator