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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
dlls/vbscript/interp.c
View File

@ -384,8 +384,24 @@ static HRESULT interp_jmp(exec_ctx_t *ctx)
static HRESULT interp_jmp_false(exec_ctx_t *ctx) static HRESULT interp_jmp_false(exec_ctx_t *ctx)
{ {
FIXME("\n"); const unsigned arg = ctx->instr->arg1.uint;
return E_NOTIMPL; 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) static HRESULT interp_ret(exec_ctx_t *ctx)