Re: [PATCH] vbscript: Implemented Asc(try 3)

[Nikolay Sivov]

On 04.03.2015 9:19, Shuai Meng wrote:
> - switch(V_VT(arg)) {
> - case VT_NULL:
> -
>    return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
> - case VT_BSTR:
> -
>    bstr = V_BSTR(arg);
> -
>    break;
> - default:
> -
>    hres = to_string(arg, &bstr);
> -
>    if(FAILED(hres))
> -
>        return hres;
> - }
> -
> - ret = bstr[0];
> - SysFreeString(bstr);
> -
> - if(ret == 0)
> -
>    return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
> - return return_short(res, ret);

This is wrong too. You can't always free it like that, please look 
carefully at where 'bstr' comes from.