forked from Mirrors/wine-wine
vbscript: Support VT_BYREF|VT_DISPATCH as a DISPID_NEWENUM source.
parent
7a8d43043a
commit
9b037d559e
|
@ -1074,12 +1074,13 @@ static HRESULT interp_newenum(exec_ctx_t *ctx)
|
||||||
|
|
||||||
v = stack_pop(ctx);
|
v = stack_pop(ctx);
|
||||||
switch(V_VT(v)) {
|
switch(V_VT(v)) {
|
||||||
|
case VT_DISPATCH|VT_BYREF:
|
||||||
case VT_DISPATCH: {
|
case VT_DISPATCH: {
|
||||||
IEnumVARIANT *iter;
|
IEnumVARIANT *iter;
|
||||||
DISPPARAMS dp = {0};
|
DISPPARAMS dp = {0};
|
||||||
VARIANT iterv;
|
VARIANT iterv;
|
||||||
|
|
||||||
hres = disp_call(ctx->script, V_DISPATCH(v), DISPID_NEWENUM, &dp, &iterv);
|
hres = disp_call(ctx->script, V_ISBYREF(v) ? *V_DISPATCHREF(v) : V_DISPATCH(v), DISPID_NEWENUM, &dp, &iterv);
|
||||||
VariantClear(v);
|
VariantClear(v);
|
||||||
if(FAILED(hres))
|
if(FAILED(hres))
|
||||||
return hres;
|
return hres;
|
||||||
|
|
Loading…
Reference in New Issue