vbscript: Ignore version flags in GetDispID.

This commit is contained in:
Jacek Caban 2012-07-10 12:17:32 +02:00 committed by Alexandre Julliard
parent 3e5c76bd09
commit edab5d85c7
2 changed files with 9 additions and 0 deletions

View file

@ -333,6 +333,11 @@ static void test_disp(IDispatch *disp)
ok(id == -1, "id = %d\n", id);
SysFreeString(str);
str = a2bstr("publicProp");
hres = IDispatchEx_GetDispID(dispex, str, 0x80000000|fdexNameCaseInsensitive, &public_prop_id);
SysFreeString(str);
ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
IDispatchEx_Release(dispex);
}

View file

@ -24,6 +24,8 @@
WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
#define FDEX_VERSION_MASK 0xf0000000
static inline BOOL is_func_id(vbdisp_t *This, DISPID id)
{
return id < This->desc->func_cnt;
@ -326,6 +328,8 @@ static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DW
TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(bstrName), grfdex, pid);
grfdex &= ~FDEX_VERSION_MASK;
if(!This->desc)
return E_UNEXPECTED;