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

vbscript: Implement ScriptTypeInfo_GetFuncDesc. 

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>
This commit is contained in:
Gabriel Ivăncescu 2019-12-06 13:46:00 +01:00 committed by Alexandre Julliard
parent ddceb911f1
commit 2d753e2aa2
1 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
dlls/vbscript/vbdisp.c
View File

@ -641,10 +641,33 @@ static HRESULT WINAPI ScriptTypeInfo_GetTypeComp(ITypeInfo *iface, ITypeComp **p
static HRESULT WINAPI ScriptTypeInfo_GetFuncDesc(ITypeInfo *iface, UINT index, FUNCDESC **ppFuncDesc)
{
ScriptTypeInfo *This = ScriptTypeInfo_from_ITypeInfo(iface);
function_t *func;
FUNCDESC *desc;
UINT i;
FIXME("(%p)->(%u %p)\n", This, index, ppFuncDesc);
TRACE("(%p)->(%u %p)\n", This, index, ppFuncDesc);
return E_NOTIMPL;
if (!ppFuncDesc) return E_INVALIDARG;
if (index >= This->num_funcs) return TYPE_E_ELEMENTNOTFOUND;
func = This->funcs[index].func;
/* Store the parameter array after the FUNCDESC structure */
desc = heap_alloc_zero(sizeof(*desc) + sizeof(ELEMDESC) * func->arg_cnt);
if (!desc) return E_OUTOFMEMORY;
desc->memid = This->funcs[index].memid;
desc->funckind = FUNC_DISPATCH;
desc->invkind = INVOKE_FUNC;
desc->callconv = CC_STDCALL;
desc->cParams = func->arg_cnt;
desc->elemdescFunc.tdesc.vt = (func->type == FUNC_SUB) ? VT_VOID : VT_VARIANT;
if (func->arg_cnt) desc->lprgelemdescParam = (ELEMDESC*)(desc + 1);
for (i = 0; i < func->arg_cnt; i++)
desc->lprgelemdescParam[i].tdesc.vt = VT_VARIANT;
*ppFuncDesc = desc;
return S_OK;
}
static HRESULT WINAPI ScriptTypeInfo_GetVarDesc(ITypeInfo *iface, UINT index, VARDESC **ppVarDesc)
@ -783,7 +806,9 @@ static void WINAPI ScriptTypeInfo_ReleaseFuncDesc(ITypeInfo *iface, FUNCDESC *pF
{
ScriptTypeInfo *This = ScriptTypeInfo_from_ITypeInfo(iface);
FIXME("(%p)->(%p)\n", This, pFuncDesc);
TRACE("(%p)->(%p)\n", This, pFuncDesc);
heap_free(pFuncDesc);
}
static void WINAPI ScriptTypeInfo_ReleaseVarDesc(ITypeInfo *iface, VARDESC *pVarDesc)