From 95fd3cd43b1f744561b66062446d55b0a6a847e4 Mon Sep 17 00:00:00 2001
From: Andreas Mohr <mohr@elektron.ikp.physik.tu-darmstadt.de>
Date: Fri, 30 Jul 1999 17:56:38 +0000
Subject: [PATCH] Implemented CoRevokeClassObject stub needed by Acrobat 3 16
 bit.

---
 if1632/compobj.spec |  2 +-
 ole/compobj.c       | 12 ++++++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/if1632/compobj.spec b/if1632/compobj.spec
index 8b4c0e7b41d..ab7dc4ad7f5 100644
--- a/if1632/compobj.spec
+++ b/if1632/compobj.spec
@@ -6,7 +6,7 @@ type	win16
 3 pascal CoUninitialize() CoUninitialize16
 4 pascal CoGetMalloc(long ptr) CoGetMalloc16
 5 pascal CoRegisterClassObject(ptr ptr long long ptr) CoRegisterClassObject16
-6 stub COREVOKECLASSOBJECT
+6 pascal CoRevokeClassObject(long) CoRevokeClassObject16
 7 pascal CoGetClassObject(ptr long ptr ptr ptr) CoGetClassObject
 8 stub COMARSHALINTERFACE
 9 stub COUNMARSHALINTERFACE
diff --git a/ole/compobj.c b/ole/compobj.c
index e51179fa42c..3cb28cc1b66 100644
--- a/ole/compobj.c
+++ b/ole/compobj.c
@@ -997,6 +997,18 @@ HRESULT WINAPI CoRegisterClassObject16(
 	return 0;
 }
 
+
+/******************************************************************************
+ *      CoRevokeClassObject16 [COMPOBJ.6]
+ *
+ */
+HRESULT WINAPI CoRevokeClassObject16(DWORD dwRegister /* token on class obj */)
+{
+    FIXME("(0x%08lx),stub!\n", dwRegister);
+    return 0;
+}
+
+
 /***
  * COM_GetRegisteredClassObject
  *