vbscript: Added interp_val implementation.

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

View File

@ -684,8 +684,24 @@ static HRESULT interp_const(exec_ctx_t *ctx)
static HRESULT interp_val(exec_ctx_t *ctx) static HRESULT interp_val(exec_ctx_t *ctx)
{ {
FIXME("\n"); variant_val_t val;
return E_NOTIMPL; 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) static HRESULT interp_pop(exec_ctx_t *ctx)