vbscript: Fix array reference handling in do_icall.

Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

vbscript: Fix array reference handling in do_icall.
9e3c806e · Jacek Caban · Alexandre Julliard · 410154e2 · 9e3c806e · 9e3c806e
Commit 9e3c806e authored Oct 23, 2019 by Jacek Caban Committed by Alexandre Julliard Oct 23, 2019
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 4 deletions

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

lang.vbs dlls/vbscript/tests/lang.vbs +1 -2

No files found.
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -544,10 +544,10 @@ static HRESULT do_icall(exec_ctx_t *ctx, VARIANT *res)

            switch(V_VT(v)) {
            case VT_ARRAY|VT_BYREF|VT_VARIANT:
-                array = *V_ARRAYREF(ref.u.v);
+                array = *V_ARRAYREF(v);
                break;
            case VT_ARRAY|VT_VARIANT:
-                array = V_ARRAY(ref.u.v);
+                array = V_ARRAY(v);
                break;
            case VT_DISPATCH:
                vbstack_to_dp(ctx, arg_cnt, FALSE, &dp);

--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -1300,8 +1300,7 @@ Call testarrarg(false, "VT_BOOL*")
 Call testarrarg(Empty, "VT_EMPTY*")

 Sub modifyarr(arr)
-    'Following test crashes on wine
-    'Call ok(arr(0) = "not modified", "arr(0) = " & arr(0))
+    Call ok(arr(0) = "not modified", "arr(0) = " & arr(0))
    arr(0) = "modified"
 End Sub