ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

oleaut32: Improve TYPEFLAG_FDUAL handling.

This commit is contained in:
Andrew Eikum 2013-05-28 17:00:18 -05:00 committed by Alexandre Julliard
parent 0082256a3f
commit 8c6984ab7a
1 changed files with 59 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
dlls/oleaut32/typelib.c
View File

@ -5730,11 +5730,10 @@ static HRESULT WINAPI ITypeInfo_fnGetRefTypeOfImplType(
/* only valid on dual interfaces;
retrieve the associated TKIND_INTERFACE handle for the current TKIND_DISPATCH
*/
if( This->TypeAttr.typekind != TKIND_DISPATCH) return E_INVALIDARG;
if (This->TypeAttr.wTypeFlags & TYPEFLAG_FDUAL)
{
*pRefType = -1;
*pRefType = -2;
}
else
{
@ -7083,33 +7082,28 @@ static HRESULT WINAPI ITypeInfo_fnGetRefTypeInfo(
if(!ppTInfo)
return E_INVALIDARG;
if ((This->hreftype != -1) && (This->hreftype == hRefType))
{
*ppTInfo = (ITypeInfo *)&This->ITypeInfo2_iface;
ITypeInfo_AddRef(*ppTInfo);
result = S_OK;
}
else if (hRefType == -1 &&
(This->TypeAttr.typekind == TKIND_DISPATCH) &&
(This->TypeAttr.wTypeFlags & TYPEFLAG_FDUAL))
{
/* when we meet a DUAL dispinterface, we must create the interface
if ((INT)hRefType < 0) {
ITypeInfoImpl *pTypeInfoImpl;
if (!(This->TypeAttr.wTypeFlags & TYPEFLAG_FDUAL) ||
!(This->TypeAttr.typekind == TKIND_INTERFACE ||
This->TypeAttr.typekind == TKIND_DISPATCH))
return TYPE_E_ELEMENTNOTFOUND;
/* when we meet a DUAL typeinfo, we must create the alternate
* version of it.
*/
ITypeInfoImpl *pTypeInfoImpl = ITypeInfoImpl_Constructor();
pTypeInfoImpl = ITypeInfoImpl_Constructor();
/* the interface version contains the same information as the dispinterface
* copy the contents of the structs.
*/
*pTypeInfoImpl = *This;
pTypeInfoImpl->ref = 0;
/* change the type to interface */
if (This->TypeAttr.typekind == TKIND_INTERFACE)
pTypeInfoImpl->TypeAttr.typekind = TKIND_DISPATCH;
else
pTypeInfoImpl->TypeAttr.typekind = TKIND_INTERFACE;
*ppTInfo = (ITypeInfo*) pTypeInfoImpl;
*ppTInfo = (ITypeInfo *)&pTypeInfoImpl->ITypeInfo2_iface;
/* the AddRef implicitly adds a reference to the parent typelib, which
* stops the copied data from being destroyed until the new typeinfo's
* refcount goes to zero, but we need to signal to the new instance to
@ -7119,8 +7113,13 @@ static HRESULT WINAPI ITypeInfo_fnGetRefTypeInfo(
ITypeInfo_AddRef(*ppTInfo);
result = S_OK;
} else if ((hRefType != -1) && (hRefType & DISPATCH_HREF_MASK) &&
}
else if (This->hreftype == hRefType)
{
*ppTInfo = (ITypeInfo *)&This->ITypeInfo2_iface;
ITypeInfo_AddRef(*ppTInfo);
result = S_OK;
} else if ((hRefType & DISPATCH_HREF_MASK) &&
(This->TypeAttr.typekind == TKIND_DISPATCH))
{
HREFTYPE href_dispatch = hRefType;
@ -8399,8 +8398,27 @@ static HRESULT WINAPI ICreateTypeInfo2_fnSetTypeFlags(ICreateTypeInfo2 *iface,
TRACE("%p %x\n", This, typeFlags);
if (typeFlags & TYPEFLAG_FDUAL)
typeFlags |= TYPEFLAG_FDISPATCHABLE;
if (typeFlags & TYPEFLAG_FDUAL) {
static const WCHAR stdole2tlb[] = { 's','t','d','o','l','e','2','.','t','l','b',0 };
ITypeLib *stdole;
ITypeInfo *dispatch;
HREFTYPE hreftype;
HRESULT hres;
hres = LoadTypeLib(stdole2tlb, &stdole);
if(FAILED(hres))
return hres;
hres = ITypeLib_GetTypeInfoOfGuid(stdole, &IID_IDispatch, &dispatch);
ITypeLib_Release(stdole);
if(FAILED(hres))
return hres;
hres = ICreateTypeInfo2_AddRefTypeInfo(iface, dispatch, &hreftype);
ITypeInfo_Release(dispatch);
if(FAILED(hres))
return hres;
}
This->TypeAttr.wTypeFlags = typeFlags;
@ -8628,6 +8646,9 @@ static HRESULT WINAPI ICreateTypeInfo2_fnAddImplType(ICreateTypeInfo2 *iface,
++This->TypeAttr.cImplTypes;
if((refType & (~0x3)) == (This->pTypeLib->dispatch_href & (~0x3)))
This->TypeAttr.wTypeFlags |= TYPEFLAG_FDISPATCHABLE;
return S_OK;
}