reactos/wine
1
0
Fork 0
mirror of https://github.com/reactos/wine.git synced 2024-11-26 05:00:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

vbscript: Pass arguments to 1-arg functions directly if they are VT_VARIANT|VT_BYREF.

Browse Source
This commit is contained in:
Jacek Caban 2011-10-11 14:59:06 +02:00 committed by Alexandre Julliard
parent a7b5d86655
commit 1c936039ed
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
dlls/vbscript/vbdisp.c
View File

@ -133,6 +133,8 @@ static HRESULT invoke_variant_prop(vbdisp_t *This, VARIANT *v, WORD flags, DISPP
static HRESULT invoke_builtin(vbdisp_t *This, const builtin_prop_t *prop, WORD flags, DISPPARAMS *dp, VARIANT *res)
{
VARIANT *args;
switch(flags) {
case DISPATCH_PROPERTYGET:
if(!(prop->flags & (BP_GET|BP_GETPUT))) {
@ -166,7 +168,12 @@ static HRESULT invoke_builtin(vbdisp_t *This, const builtin_prop_t *prop, WORD f
return E_FAIL;
}
return prop->proc(This, dp->rgvarg, dp->cArgs, res);
if(arg_cnt(dp) == 1 && V_VT(dp->rgvarg) == (VT_BYREF|VT_VARIANT))
args = V_VARIANTREF(dp->rgvarg);
else
args = dp->rgvarg;
return prop->proc(This, args, dp->cArgs, res);
}
static BOOL run_terminator(vbdisp_t *This)