system/wine
system/wine
1
0
Fork 0
mirror of git://source.winehq.org/git/wine.git synced 2024-09-06 08:08:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

vbscript: Better stub for interp_errmode.

Browse source
This commit is contained in:
Jacek Caban 2011-09-22 14:26:25 +02:00 committed by Alexandre Julliard
parent f48658c106
commit 00de502b36
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
dlls/vbscript/interp.c
View file

@ -37,6 +37,8 @@ typedef struct {
dynamic_var_t *dynamic_vars;
vbsheap_t heap;
BOOL resume_next;
unsigned stack_size;
unsigned top;
VARIANT *stack;
@ -891,8 +893,11 @@ static HRESULT interp_bool(exec_ctx_t *ctx)
static HRESULT interp_errmode(exec_ctx_t *ctx)
{
const int err_mode = ctx->instr->arg1.uint;
FIXME("%d\n", err_mode);
return E_NOTIMPL;
TRACE("%d\n", err_mode);
ctx->resume_next = err_mode;
return S_OK;
}
static HRESULT interp_string(exec_ctx_t *ctx)
@ -1659,7 +1664,10 @@ HRESULT exec_script(script_ctx_t *ctx, function_t *func, IDispatch *this_obj, DI
op = exec.instr->op;
hres = op_funcs[op](&exec);
if(FAILED(hres)) {
FIXME("Failed %08x\n", hres);
if(exec.resume_next)
FIXME("Failed %08x in resume next mode\n", hres);
else
WARN("Failed %08x\n", hres);
stack_popn(&exec, exec.top);
break;
}