vbscript: Added interp_val implementation.

aad75892 · Jacek Caban · Alexandre Julliard · 8244e4c0 · aad75892
Commit aad75892 authored Sep 22, 2011 by Jacek Caban Committed by Alexandre Julliard Sep 22, 2011
Show whitespace changes
Inline Side-by-side

Showing with 18 additions and 2 deletions

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

No files found.
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -684,8 +684,24 @@ static HRESULT interp_const(exec_ctx_t *ctx)
 static HRESULT interp_val(exec_ctx_t *ctx)
 {
-    FIXME("\n");
+    variant_val_t val;
-    return E_NOTIMPL;
+    VARIANT v;
+    HRESULT hres;
+    TRACE("\n");
+    hres = stack_pop_val(ctx, &val);
+    if(FAILED(hres))
+        return hres;
+    if(!val.owned) {
+        V_VT(&v) = VT_EMPTY;
+        hres = VariantCopy(&v, val.v);
+        if(FAILED(hres))
+            return hres;
+    }
+    return stack_push(ctx, val.owned ? val.v : &v);
 }
 static HRESULT interp_pop(exec_ctx_t *ctx)