Jacek Caban : vbscript: Added interp_jmp implementation.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 8689884c194120339ee5853babc7ab4578e5e0f3
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=8689884c194120339ee5853bab...

Author: Jacek Caban 
Date:   Tue Sep 13 11:38:58 2011 +0200

vbscript: Added interp_jmp implementation.

---

dlls/vbscript/interp.c |   13 +++++++++++--
 1 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c
index e9569fa..e444016 100644
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -191,6 +191,11 @@ static HRESULT stack_pop_disp(exec_ctx_t *ctx, IDispatch **ret)
     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)
 {
     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)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    const unsigned arg = ctx->instr->arg1.uint;
+
+    TRACE("%u\n", arg);
+
+    instr_jmp(ctx, arg);
+    return S_OK;
 }

static HRESULT interp_jmp_false(exec_ctx_t *ctx)