From 06b4eb326e9d68b3358e7959c9977833e9cc4839 Mon Sep 17 00:00:00 2001
From: Pavel Roskin <pavel_roskin@geocities.com>
Date: Sat, 14 Nov 1998 17:01:59 +0000
Subject: [PATCH] Added stubs for CoRevokeClassObject and OleSetClipboard.

---
 ole/compobj.c      |  8 ++++++++
 ole/ole2.c         | 11 ++++++++++-
 relay32/ole32.spec |  4 ++--
 3 files changed, 20 insertions(+), 3 deletions(-)

diff --git a/ole/compobj.c b/ole/compobj.c
index 2d1e140e320..b3f64e49b45 100644
--- a/ole/compobj.c
+++ b/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,
diff --git a/ole/ole2.c b/ole/ole2.c
index e3770e23027..36b05b2c1b5 100644
--- a/ole/ole2.c
+++ b/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;
diff --git a/relay32/ole32.spec b/relay32/ole32.spec
index 1fac5276482..ca838b21aba 100644
--- a/relay32/ole32.spec
+++ b/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
-- 
2.11.4.GIT