Jacek Caban : vbscript: Added Err.Clear implementation.
Alexandre Julliard
julliard at winehq.org
Fri Mar 21 14:33:51 CDT 2014
Module: wine
Branch: master
Commit: 171ddf5c57d41decdbee219122700d099345d4a0
URL: http://source.winehq.org/git/wine.git/?a=commit;h=171ddf5c57d41decdbee219122700d099345d4a0
Author: Jacek Caban <jacek at codeweavers.com>
Date: Fri Mar 21 14:38:33 2014 +0100
vbscript: Added Err.Clear implementation.
---
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)
More information about the wine-cvs
mailing list