oleaut32: Implement ICreateTypeInfo::SetImplTypeFlags.

This commit is contained in:
Andrew Eikum 2013-05-29 14:59:42 -05:00 committed by Alexandre Julliard
parent 90e72d2d49
commit 92b9304ae4
1 changed files with 13 additions and 2 deletions

View File

@ -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,