oleaut32: Function kind for dispatch interfaces should be FUNC_DISPATCH.

.gitignore

@@ -328,6 +328,7 @@ dlls/oleaut32/liboleaut32.def
 dlls/oleaut32/oleaut32.res
 dlls/oleaut32/tests/*.ok
 dlls/oleaut32/tests/oleaut32_crosstest.exe
+dlls/oleaut32/tests/test_tlb.tlb
 dlls/oleaut32/tests/testlist.c
 dlls/oleaut32/tests/tmarshal.h
 dlls/oleaut32/tests/tmarshal.res

dlls/oleaut32/tests/Makefile.in

@@ -20,7 +20,10 @@ CTESTS = \
 RC_SRCS = tmarshal.rc
 
 IDL_I_SRCS = tmarshal.idl
-IDL_TLB_SRCS = tmarshal.idl
+
+IDL_TLB_SRCS = \
+	test_tlb.idl \
+	tmarshal.idl
 
 @MAKE_TEST_RULES@
 

dlls/oleaut32/tests/test_tlb.idl

+/*
+ * ITypeLib test IDL - we dump it and compare results in typelib.c
+ *
+ * Copyright 2007 Google (Mikolaj Zalewski)
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+import "oaidl.idl"; /* needed by widl */
+
+[uuid(8b05fe77-4a6c-4133-b9cd-8f81747af784)]
+library Test
+{
+	importlib("stdole2.tlb");
+
+	[dual,uuid(b14b6bb5-904e-4ff9-b247-bd361f7aaedd)]
+	interface IDualIface : IDispatch
+	{
+		HRESULT test();
+	}
+
+	[uuid(ec5dfcd6-eeb0-4cd6-b51e-8030e1dac009)]
+	interface ISimpleIface : IDispatch
+	{
+		HRESULT test();
+	}
+}

dlls/oleaut32/typelib.c

@@ -4674,6 +4674,8 @@ static HRESULT TLB_AllocAndInitFuncDesc( const FUNCDESC *src, FUNCDESC **dest_pt
     if (!dest) return E_OUTOFMEMORY;
 
     memcpy(dest, src, sizeof(FUNCDESC));
+    if (dispinterface)    /* overwrite funckind */
+        dest->funckind = FUNC_DISPATCH;
     buffer = (char *)(dest + 1);
 
     dest->lprgscode = (SCODE *)buffer;