From 00de502b365e48f763cbef522262556e698abf51 Mon Sep 17 00:00:00 2001
From: Jacek Caban <jacek@codeweavers.com>
Date: Thu, 22 Sep 2011 14:26:25 +0200
Subject: [PATCH] vbscript: Better stub for interp_errmode.

---
 dlls/vbscript/interp.c | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c
index 678b51ad830..08bf7106bfd 100644
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -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;
         }
-- 
2.11.4.GIT