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

vbscript: Added support for setting array elements.

This commit is contained in:
Jacek Caban 2013-11-13 16:29:53 +01:00 committed by Alexandre Julliard
parent 79c55e1255
commit 7917b67a18
1 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
dlls/vbscript/interp.c
View File

@ -698,15 +698,43 @@ static HRESULT assign_ident(exec_ctx_t *ctx, BSTR name, DISPPARAMS *dp)
case REF_VAR: {
VARIANT *v = ref.u.v;
if(arg_cnt(dp)) {
FIXME("arg_cnt %d not supported\n", arg_cnt(dp));
return E_NOTIMPL;
}
if(V_VT(v) == (VT_VARIANT|VT_BYREF))
v = V_VARIANTREF(v);
hres = VariantCopy(v, dp->rgvarg);
if(arg_cnt(dp)) {
SAFEARRAY *array;
if(!(V_VT(v) & VT_ARRAY)) {
FIXME("array assign on type %d\n", V_VT(v));
return E_FAIL;
}
switch(V_VT(v)) {
case VT_ARRAY|VT_BYREF|VT_VARIANT:
array = *V_ARRAYREF(v);
break;
case VT_ARRAY|VT_VARIANT:
array = V_ARRAY(v);
break;
default:
FIXME("Unsupported array type %x\v", V_VT(v));
return E_NOTIMPL;
}
if(!array) {
FIXME("null array\n");
return E_FAIL;
}
hres = array_access(ctx, array, dp, &v);
if(FAILED(hres))
return hres;
}else if(V_VT(v) == (VT_ARRAY|VT_BYREF|VT_VARIANT)) {
FIXME("non-array assign\n");
return E_NOTIMPL;
}
hres = VariantCopyInd(v, dp->rgvarg);
break;
}
case REF_DISP: