vbscript: Added interp_jmp_false implementation.

This commit is contained in:
Jacek Caban 2011-09-13 11:39:13 +02:00 committed by Alexandre Julliard
parent 8689884c19
commit 0722695cc0
1 changed files with 18 additions and 2 deletions

View File

@ -384,8 +384,24 @@ static HRESULT interp_jmp(exec_ctx_t *ctx)
static HRESULT interp_jmp_false(exec_ctx_t *ctx)
{
FIXME("\n");
return E_NOTIMPL;
const unsigned arg = ctx->instr->arg1.uint;
variant_val_t val;
HRESULT hres;
TRACE("%u\n", arg);
hres = stack_pop_val(ctx, &val);
if(V_VT(val.v) != VT_BOOL) {
FIXME("unsupported for %s\n", debugstr_variant(val.v));
release_val(&val);
return E_NOTIMPL;
}
if(V_BOOL(val.v))
ctx->instr++;
else
instr_jmp(ctx, ctx->instr->arg1.uint);
return S_OK;
}
static HRESULT interp_ret(exec_ctx_t *ctx)