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

oleaut32: Add support for named arguments in ITypeInfo::Invoke.

This commit is contained in:
Rob Shearman 2007-02-06 19:25:27 +00:00 committed by Alexandre Julliard
parent 702e2c6dc2
commit 21140a9a53
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
dlls/oleaut32/typelib.c
View File

@ -5485,6 +5485,29 @@ static HRESULT WINAPI ITypeInfo_fnInvoke(
for (i = 0; i < func_desc->cParams; i++) for (i = 0; i < func_desc->cParams; i++)
{ {
USHORT wParamFlags = func_desc->lprgelemdescParam[i].u.paramdesc.wParamFlags; USHORT wParamFlags = func_desc->lprgelemdescParam[i].u.paramdesc.wParamFlags;
VARIANTARG *src_arg;
if (pDispParams->cNamedArgs)
{
USHORT j;
src_arg = NULL;
for (j = 0; j < pDispParams->cNamedArgs; j++)
{
if ((func_desc->invkind & INVOKE_PROPERTYPUT) &&
(pDispParams->rgdispidNamedArgs[j] == DISPID_PROPERTYPUT))
{
src_arg = &pDispParams->rgvarg[0];
break;
}
if (pDispParams->rgdispidNamedArgs[j] == i)
{
src_arg = &pDispParams->rgvarg[j];
break;
}
}
}
else
src_arg = i < pDispParams->cArgs ? &pDispParams->rgvarg[pDispParams->cArgs - 1 - i] : NULL;
if (wParamFlags & PARAMFLAG_FRETVAL) if (wParamFlags & PARAMFLAG_FRETVAL)
{ {
@ -5507,9 +5530,8 @@ static HRESULT WINAPI ITypeInfo_fnInvoke(
break; break;
} }
} }
else if (i < pDispParams->cArgs) else if (src_arg)
{ {
VARIANTARG *src_arg = &pDispParams->rgvarg[pDispParams->cArgs - 1 - i];
dump_Variant(src_arg); dump_Variant(src_arg);
if (rgvt[i] == VT_VARIANT) if (rgvt[i] == VT_VARIANT)