[PATCH 2/4] vbscript: Implemented VarType(try 3)

[Piotr Caban]

On 06/25/14 04:19, Shuai Meng wrote:
>   static HRESULT Global_VarType(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);
> +
> +    if(V_VT(arg) & ~VT_TYPEMASK) {
> +        FIXME("not supported %s\n", debugstr_variant(arg));
> +        return E_NOTIMPL;
> +    }
> +
> +    if(!res)
> +        return DISP_E_BADVARTYPE;
This function should not return error if res is NULL.