Added stubs for RevokeActiveObject, GetActiveObject, fixed

dlls/oleaut32/oleaut.c

@@ -13,8 +13,33 @@
 
 DEFAULT_DEBUG_CHANNEL(ole)
 
-HRESULT WINAPI RegisterActiveObject(DWORD x1,DWORD x2,DWORD x3,DWORD x4)
+HRESULT WINAPI RegisterActiveObject(
+	LPUNKNOWN punk,REFCLSID rcid,DWORD dwFlags,LPDWORD pdwRegister
+) {
+	char buf[80];
+
+	if (rcid)
+		WINE_StringFromCLSID(rcid,buf);
+	else
+		sprintf(buf,"<clsid-%p>",rcid);
+	FIXME("(%p,%s,0x%08lx,%p), stub!\n",punk,buf,dwFlags,pdwRegister);
+	return E_FAIL;
+}
+
+HRESULT WINAPI RevokeActiveObject(DWORD xregister,LPVOID reserved)
 {
-	FIXME("(0x%08lx,0x%08lx,0x%08lx,0x%08lx), stub!\n",x1,x2,x3,x4);
+	FIXME("(0x%08lx,%p),stub!\n",xregister,reserved);
+	return E_FAIL;
+}
+
+HRESULT WINAPI GetActiveObject(REFCLSID rcid,LPVOID preserved,LPUNKNOWN *ppunk)
+{
+	char buf[80];
+
+	if (rcid)
+		WINE_StringFromCLSID(rcid,buf);
+	else
+		sprintf(buf,"<clsid-%p>",rcid);
+	FIXME("(%s,%p,%p),stub!\n",buf,preserved,ppunk);
 	return E_FAIL;
 }

dlls/oleaut32/oleaut32.spec

@@ -33,9 +33,9 @@ type win32
 30 stub DispInvoke
 31 stub CreateDispTypeInfo
 32 stub CreateStdDispatch
-33 stdcall RegisterActiveObject(long long long long) RegisterActiveObject
-34 stub RevokeActiveObject
-35 stub GetActiveObject
+33 stdcall RegisterActiveObject(ptr ptr long ptr) RegisterActiveObject
+34 stdcall RevokeActiveObject(long ptr) RevokeActiveObject
+35 stdcall GetActiveObject(ptr ptr ptr) GetActiveObject
 36 stdcall SafeArrayAllocDescriptor(long ptr) SafeArrayAllocDescriptor
 37 stdcall SafeArrayAllocData(ptr) SafeArrayAllocData
 38 stdcall SafeArrayDestroyDescriptor(ptr) SafeArrayDestroyDescriptor