Alexandre Julliard : ole32: Added a CoGetContextToken stub.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: de61fc5ecad7c8049ec1c468d6697d6d7d9dd08d
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=de61fc5ecad7c8049ec1c468d6...

Author: Alexandre Julliard 
Date:   Tue Feb 26 11:21:54 2008 +0100

ole32: Added a CoGetContextToken stub.

---

dlls/ole32/compobj.c  |   12 ++++++++++++
 dlls/ole32/ole32.spec |    1 +
 include/objbase.h     |    2 ++
 3 files changed, 15 insertions(+), 0 deletions(-)

diff --git a/dlls/ole32/compobj.c b/dlls/ole32/compobj.c
index c800a2c..8764877 100644
--- a/dlls/ole32/compobj.c
+++ b/dlls/ole32/compobj.c
@@ -3734,6 +3734,18 @@ HRESULT WINAPI CoGetObjectContext(REFIID riid, void **ppv)
     return hr;
 }

+
+/***********************************************************************
+ *           CoGetContextToken [OLE32.@]
+ */
+HRESULT WINAPI CoGetContextToken( ULONG_PTR *token )
+{
+    FIXME( "stub\n" );
+    if (token) *token = 0;
+    return E_NOTIMPL;
+}
+
+
 /***********************************************************************
  *		DllMain (OLE32.@)
  */
diff --git a/dlls/ole32/ole32.spec b/dlls/ole32/ole32.spec
index e1b2250..7561156 100644
--- a/dlls/ole32/ole32.spec
+++ b/dlls/ole32/ole32.spec
@@ -24,6 +24,7 @@
 @ stdcall CoGetCallContext(ptr ptr)
 @ stub CoGetCallerTID
 @ stdcall CoGetClassObject(ptr long ptr ptr ptr)
+@ stdcall CoGetContextToken(ptr)
 @ stub CoGetCurrentLogicalThreadId
 @ stdcall CoGetCurrentProcess()
 @ stub CoGetInstanceFromFile      #@ stdcall (ptr ptr ptr long wstr long ptr) return 0,ERR_NOTIMPLEMENTED
diff --git a/include/objbase.h b/include/objbase.h
index 33fe4c9..9f86fa9 100644
--- a/include/objbase.h
+++ b/include/objbase.h
@@ -350,6 +350,8 @@ LPVOID WINAPI CoTaskMemRealloc(LPVOID ptr, ULONG size);
 HRESULT WINAPI CoRegisterMallocSpy(LPMALLOCSPY pMallocSpy);
 HRESULT WINAPI CoRevokeMallocSpy(void);

+HRESULT WINAPI CoGetContextToken( ULONG_PTR *token );
+
 /* class registration flags; passed to CoRegisterClassObject */
 typedef enum tagREGCLS
 {