From 2cbbf5717940088f610bc2c891cfe75c4ac1d66b Mon Sep 17 00:00:00 2001
From: Jacek Caban <jacek@codeweavers.com>
Date: Thu, 8 Sep 2011 14:57:56 +0200
Subject: [PATCH] vbscript: Added interp_string implementation.

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

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