marko10_000
/
wine-wine
forked from Mirrors/wine-wine
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vbscript: Implement ScriptTypeInfo_GetRefTypeInfo. 

Signed-off-by: Gabriel Ivăncescu <gabrielopcode@gmail.com>
Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
stable
Gabriel Ivăncescu 2019-12-11 18:19:21 +01:00 committed by Alexandre Julliard
parent 8ce9855256
commit 3dc54aa79d
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
dlls/vbscript/vbdisp.c
View File

@ -884,10 +884,23 @@ static HRESULT WINAPI ScriptTypeInfo_GetDllEntry(ITypeInfo *iface, MEMBERID memi
static HRESULT WINAPI ScriptTypeInfo_GetRefTypeInfo(ITypeInfo *iface, HREFTYPE hRefType, ITypeInfo **ppTInfo)
{
ScriptTypeInfo *This = ScriptTypeInfo_from_ITypeInfo(iface);
HRESULT hr;
FIXME("(%p)->(%x %p)\n", This, hRefType, ppTInfo);
TRACE("(%p)->(%x %p)\n", This, hRefType, ppTInfo);
return E_NOTIMPL;
if (!ppTInfo || (INT)hRefType < 0) return E_INVALIDARG;
if (hRefType & ~3) return E_FAIL;
if (hRefType & 1)
{
hr = get_dispatch_typeinfo(ppTInfo);
if (FAILED(hr)) return hr;
}
else
*ppTInfo = iface;
ITypeInfo_AddRef(*ppTInfo);
return S_OK;
}
static HRESULT WINAPI ScriptTypeInfo_AddressOfMember(ITypeInfo *iface, MEMBERID memid, INVOKEKIND invKind, PVOID *ppv)