vbscript: Added interp_string implementation.

2cbbf571 · Jacek Caban · Alexandre Julliard · 01e2bea1 · 2cbbf571
Commit 2cbbf571 authored Sep 08, 2011 by Jacek Caban Committed by Alexandre Julliard Sep 08, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 2 deletions

interp.c dlls/vbscript/interp.c +10 -2

No files found.
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -162,8 +162,16 @@ static HRESULT interp_bool(exec_ctx_t *ctx)

 static HRESULT interp_string(exec_ctx_t *ctx)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    VARIANT v;
+
+    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[] = {