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: Added interp_val implementation.

Browse Source
This commit is contained in:
Jacek Caban 2011-09-22 14:23:25 +02:00 committed by Alexandre Julliard
parent 8244e4c0c7
commit aad758921c
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
dlls/vbscript/interp.c
View File

@ -684,8 +684,24 @@ static HRESULT interp_const(exec_ctx_t *ctx)
static HRESULT interp_val(exec_ctx_t *ctx)
{
FIXME("\n");
return E_NOTIMPL;
variant_val_t val;
VARIANT v;
HRESULT hres;
TRACE("\n");
hres = stack_pop_val(ctx, &val);
if(FAILED(hres))
return hres;
if(!val.owned) {
V_VT(&v) = VT_EMPTY;
hres = VariantCopy(&v, val.v);
if(FAILED(hres))
return hres;
}
return stack_push(ctx, val.owned ? val.v : &v);
}
static HRESULT interp_pop(exec_ctx_t *ctx)