vbscript: Added interp_string implementation.
This commit is contained in:
parent
01e2bea114
commit
2cbbf57179
|
@ -162,8 +162,16 @@ static HRESULT interp_bool(exec_ctx_t *ctx)
|
||||||
|
|
||||||
static HRESULT interp_string(exec_ctx_t *ctx)
|
static HRESULT interp_string(exec_ctx_t *ctx)
|
||||||
{
|
{
|
||||||
FIXME("\n");
|
VARIANT v;
|
||||||
return E_NOTIMPL;
|
|
||||||
|
TRACE("\n");
|
||||||
|
|
||||||
|
V_VT(&v) = VT_BSTR;
|
||||||
|
V_BSTR(&v) = SysAllocString(ctx->instr->arg1.str);
|
||||||
|
if(!V_BSTR(&v))
|
||||||
|
return E_OUTOFMEMORY;
|
||||||
|
|
||||||
|
return stack_push(ctx, &v);
|
||||||
}
|
}
|
||||||
|
|
||||||
static const instr_func_t op_funcs[] = {
|
static const instr_func_t op_funcs[] = {
|
||||||
|
|
Loading…
Reference in New Issue