Jacek Caban : vbscript: Added interp_string implementation.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 2cbbf5717940088f610bc2c891cfe75c4ac1d66b
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=2cbbf5717940088f610bc2c891cfe75c4ac1d66b

Author: Jacek Caban <jacek at codeweavers.com>
Date:   Thu Sep  8 14:57:56 2011 +0200

vbscript: Added interp_string implementation.

---

 dlls/vbscript/interp.c |   12 ++++++++++--
 1 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c
index df296fa..d060c51 100644
--- 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[] = {