Andrew Eikum : oleaut32: Implement ICreateTypeInfo::SetImplTypeFlags.

[Alexandre Julliard]

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

Author: Andrew Eikum <aeikum at codeweavers.com>
Date:   Wed May 29 14:59:42 2013 -0500

oleaut32: Implement ICreateTypeInfo::SetImplTypeFlags.

---

 dlls/oleaut32/typelib.c |   15 +++++++++++++--
 1 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c
index 50a955e..f903882 100644
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -8796,8 +8796,19 @@ static HRESULT WINAPI ICreateTypeInfo2_fnSetImplTypeFlags(ICreateTypeInfo2 *ifac
         UINT index, INT implTypeFlags)
 {
     ITypeInfoImpl *This = info_impl_from_ICreateTypeInfo2(iface);
-    FIXME("%p %u %x - stub\n", This, index, implTypeFlags);
-    return E_NOTIMPL;
+    TLBImplType *impl_type = &This->impltypes[index];
+
+    TRACE("%p %u %x\n", This, index, implTypeFlags);
+
+    if (This->TypeAttr.typekind != TKIND_COCLASS)
+        return TYPE_E_BADMODULEKIND;
+
+    if (index >= This->TypeAttr.cImplTypes)
+        return TYPE_E_ELEMENTNOTFOUND;
+
+    impl_type->implflags = implTypeFlags;
+
+    return S_OK;
 }
 
 static HRESULT WINAPI ICreateTypeInfo2_fnSetAlignment(ICreateTypeInfo2 *iface,