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

oleaut32: Return type mismatch errors in ITypeLibComp_fnBind.

This commit is contained in:
Vincent Povirk 2010-03-12 14:54:46 -06:00 committed by Alexandre Julliard
parent 4f20455e4c
commit da409d6a7b
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dlls/oleaut32/tests/typelib.c
View File

@ -150,7 +150,7 @@ static void test_TypeComp(void)
/* test getting a function within a TKIND_MODULE with INVOKE_PROPERTYGET */
ulHash = LHashValOfNameSys(SYS_WIN32, LOCALE_NEUTRAL, wszSavePicture);
hr = ITypeComp_Bind(pTypeComp, wszSavePicture, ulHash, INVOKE_PROPERTYGET, &pTypeInfo, &desckind, &bindptr);
todo_wine ok(hr == TYPE_E_TYPEMISMATCH,
ok(hr == TYPE_E_TYPEMISMATCH,
"ITypeComp_Bind should have failed with TYPE_E_TYPEMISMATCH instead of 0x%08x\n",
hr);

17
dlls/oleaut32/typelib.c
View File

@ -4722,6 +4722,7 @@ static HRESULT WINAPI ITypeLibComp_fnBind(
{
ITypeLibImpl *This = impl_from_ITypeComp(iface);
ITypeInfoImpl *pTypeInfo;
int typemismatch=0;
TRACE("(%s, 0x%x, 0x%x, %p, %p, %p)\n", debugstr_w(szName), lHash, wFlags, ppTInfo, pDescKind, pBindPtr);
@ -4761,6 +4762,8 @@ static HRESULT WINAPI ITypeLibComp_fnBind(
TRACE("found in module or in enum: %s\n", debugstr_w(szName));
return S_OK;
}
else if (hr == TYPE_E_TYPEMISMATCH)
typemismatch = 1;
}
if ((pTypeInfo->TypeAttr.typekind == TKIND_COCLASS) &&
@ -4833,11 +4836,21 @@ static HRESULT WINAPI ITypeLibComp_fnBind(
ITypeInfo_AddRef(*ppTInfo);
return S_OK;
}
else if (hr == TYPE_E_TYPEMISMATCH)
typemismatch = 1;
}
}
TRACE("name not found %s\n", debugstr_w(szName));
return S_OK;
if (typemismatch)
{
TRACE("type mismatch %s\n", debugstr_w(szName));
return TYPE_E_TYPEMISMATCH;
}
else
{
TRACE("name not found %s\n", debugstr_w(szName));
return S_OK;
}
}
static HRESULT WINAPI ITypeLibComp_fnBindType(