Jacek Caban : vbscript: Added interp_jmp implementation.
Alexandre Julliard
julliard at winehq.org
Tue Sep 13 12:18:10 CDT 2011
Module: wine
Branch: master
Commit: 8689884c194120339ee5853babc7ab4578e5e0f3
URL: http://source.winehq.org/git/wine.git/?a=commit;h=8689884c194120339ee5853babc7ab4578e5e0f3
Author: Jacek Caban <jacek at codeweavers.com>
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)
More information about the wine-cvs
mailing list