From: Shuai Meng Subject: [PATCH 08/10] vbscript: Implemented CSng(try 3) Message-Id: <535478B7.70909@gmail.com> Date: Mon, 21 Apr 2014 09:47:35 +0800 --- dlls/vbscript/global.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c index bd5ca3b..c6f12f6 100644 --- a/dlls/vbscript/global.c +++ b/dlls/vbscript/global.c @@ -446,8 +446,12 @@ static HRESULT Global_CDbl(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARI static HRESULT Global_CSng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) { - FIXME("\n"); - return E_NOTIMPL; + TRACE("%s\n", debugstr_variant(arg)); + + assert(args_cnt == 1); + + V_VT(res) = VT_EMPTY; + return VariantChangeType(res, arg, VARIANT_LOCALBOOL, VT_R4); } static HRESULT Global_CStr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)