From: Shuai Meng Subject: [PATCH 06/10] vbscript: Fixed CInt(try 3) Message-Id: <53547892.5010106@gmail.com> Date: Mon, 21 Apr 2014 09:46:58 +0800 --- dlls/vbscript/global.c | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c index f04e063..479af24 100644 --- a/dlls/vbscript/global.c +++ b/dlls/vbscript/global.c @@ -385,18 +385,12 @@ static HRESULT Global_CCur(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARI static HRESULT Global_CInt(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) { - int val; - HRESULT hres; - TRACE("%s\n", debugstr_variant(arg)); assert(args_cnt == 1); - hres = to_int(arg, &val); - if(FAILED(hres)) - return hres; - - return return_int(res, val); + V_VT(res) = VT_EMPTY; + return VariantChangeType(res, arg, VARIANT_LOCALBOOL, VT_I2); } static HRESULT Global_CLng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)