vbscript: Added Err.Clear implementation.

171ddf5c · Jacek Caban · Alexandre Julliard · 7baaea03 · 171ddf5c
Commit 171ddf5c authored Mar 21, 2014 by Jacek Caban Committed by Alexandre Julliard Mar 21, 2014
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

global.c dlls/vbscript/global.c +7 -2

No files found.
--- a/dlls/vbscript/global.c
+++ b/dlls/vbscript/global.c
@@ -1907,8 +1907,13 @@ static HRESULT Err_Source(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARI

 static HRESULT Err_Clear(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    TRACE("\n");
+
+    if(!This->desc)
+        return E_UNEXPECTED;
+
+    This->desc->ctx->err_number = S_OK;
+    return S_OK;
 }

 static HRESULT Err_Raise(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)