From 8d6907e85853e14eda1e727df5e9f6bce1c8e68c Mon Sep 17 00:00:00 2001 From: Shuai Meng Date: Sun, 16 Mar 2014 00:14:23 +0800 Subject: [PATCH 09/11] vbscript: Implemented CSng. --- dlls/vbscript/global.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c index 98c783c..8415450 100644 --- a/dlls/vbscript/global.c +++ b/dlls/vbscript/global.c @@ -439,8 +439,11 @@ 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) -- 1.8.1.2