From: Jacek Caban Subject: [PATCH 4/5] vbscript: Added Err.Clear implementation. Message-Id: <532C40D9.8050205@codeweavers.com> Date: Fri, 21 Mar 2014 14:38:33 +0100 --- dlls/vbscript/global.c | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c index c2b16e2..9b6ca48 100644 --- 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)