From: Shuai Meng Subject: [PATCH 06/10] vbscript: Fixed CInt Message-Id: <5351E2CA.6050804@gmail.com> Date: Sat, 19 Apr 2014 10:43:22 +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)