vbscript: Added interp_jmp implementation.

This commit is contained in:
Jacek Caban 2011-09-13 11:38:58 +02:00 committed by Alexandre Julliard
parent 58bd62e76d
commit 8689884c19
1 changed files with 11 additions and 2 deletions
dlls/vbscript

View File

@ -191,6 +191,11 @@ static HRESULT stack_pop_disp(exec_ctx_t *ctx, IDispatch **ret)
return S_OK; return S_OK;
} }
static inline void instr_jmp(exec_ctx_t *ctx, unsigned addr)
{
ctx->instr = ctx->code->instrs + addr;
}
static void vbstack_to_dp(exec_ctx_t *ctx, unsigned arg_cnt, DISPPARAMS *dp) static void vbstack_to_dp(exec_ctx_t *ctx, unsigned arg_cnt, DISPPARAMS *dp)
{ {
dp->cArgs = arg_cnt; dp->cArgs = arg_cnt;
@ -369,8 +374,12 @@ static HRESULT interp_assign_member(exec_ctx_t *ctx)
static HRESULT interp_jmp(exec_ctx_t *ctx) static HRESULT interp_jmp(exec_ctx_t *ctx)
{ {
FIXME("\n"); const unsigned arg = ctx->instr->arg1.uint;
return E_NOTIMPL;
TRACE("%u\n", arg);
instr_jmp(ctx, arg);
return S_OK;
} }
static HRESULT interp_jmp_false(exec_ctx_t *ctx) static HRESULT interp_jmp_false(exec_ctx_t *ctx)