[PATCH 0/1] MR1495: vbscript: add support for redim byref

[Jason Millard (＠jsm174)]

fixes https://bugs.winehq.org/show_bug.cgi?id=53807

[PATCH 1/1] vbscript: add support for redim byref

[Jason Millard]

From: Jason Millard

---
 dlls/vbscript/interp.c       | 31 ++++++++++++++++++++++---------
 dlls/vbscript/tests/lang.vbs | 22 ++++++++++++++++++++++
 2 files changed, 44 insertions(+), 9 deletions(-)

diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c
index 77875ee7f44..14dd7f1c570 100644
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -1312,9 +1312,16 @@ static HRESULT interp_redim(exec_ctx_t *ctx)

/* FIXME: We should check if we're not modifying an existing static array here */

-    VariantClear(ref.u.v);
-    V_VT(ref.u.v) = VT_ARRAY|VT_VARIANT;
-    V_ARRAY(ref.u.v) = array;
+    VARIANT *v = ref.u.v;
+
+    if(V_VT(v) == (VT_VARIANT|VT_BYREF)) {
+        v = V_VARIANTREF(v);
+    }
+
+    VariantClear(v);
+    V_VT(v) = VT_ARRAY|VT_VARIANT;
+    V_ARRAY(v) = array;
+
     return S_OK;
 }

@@ -1341,12 +1348,18 @@ static HRESULT interp_redim_preserve(exec_ctx_t *ctx)
         return E_FAIL;
     }

-    if(!(V_VT(ref.u.v) & VT_ARRAY)) {
-        FIXME("ReDim Preserve not valid on type %d\n", V_VT(ref.u.v));
+    VARIANT *v = ref.u.v;
+
+    if(V_VT(v) == (VT_VARIANT|VT_BYREF)) {
+        v = V_VARIANTREF(v);
+    }
+
+    if(!(V_VT(v) & VT_ARRAY)) {
+        FIXME("ReDim Preserve not valid on type %d\n", V_VT(v));
         return E_FAIL;
     }

-    array = V_ARRAY(ref.u.v);
+    array = V_ARRAY(v);

hres = array_bounds_from_stack(ctx, dim_cnt, &bounds);
     if(FAILED(hres))
@@ -1355,9 +1368,9 @@ static HRESULT interp_redim_preserve(exec_ctx_t *ctx)
     if(array == NULL || array->cDims == 0) {
         /* can initially allocate the array */
         array = SafeArrayCreate(VT_VARIANT, dim_cnt, bounds);
-        VariantClear(ref.u.v);
-        V_VT(ref.u.v) = VT_ARRAY|VT_VARIANT;
-        V_ARRAY(ref.u.v) = array;
+        VariantClear(v);
+        V_VT(v) = VT_ARRAY|VT_VARIANT;
+        V_ARRAY(v) = array;
         return S_OK;
     } else if(array->cDims != dim_cnt) {
         /* can't otherwise change the number of dimensions */
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index beb7c7e86c9..990d830234d 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -1562,6 +1562,28 @@ sub TestReDimList
 end sub
 call TestReDimList

+dim rx(4)
+sub TestReDimByRef(byref x)
+   ok ubound(x) = 4, "ubound(x) = " & ubound(x)
+   redim x(6)
+   ok ubound(x) = 6, "ubound(x) = " & ubound(x)
+end sub
+call TestReDimByRef(rx)
+ok ubound(rx) = 6, "ubound(rx) = " & ubound(rx)
+
+redim rx(5)
+rx(3)=2
+sub TestReDimPreserveByRef(byref x)
+   ok ubound(x) = 5, "ubound(x) = " & ubound(x)
+   ok x(3) = 2, "x(3) = " & x(3)
+   redim preserve x(7)
+   ok ubound(x) = 7, "ubound(x) = " & ubound(x)
+   ok x(3) = 2, "x(3) = " & x(3)
+end sub
+call TestReDimPreserveByRef(rx)
+ok ubound(rx) = 7, "ubound(rx) = " & ubound(rx)
+ok rx(3) = 2, "rx(3) = " & rx(3)
+
 Class ArrClass
     Dim classarr(3)
     Dim classnoarr()

[PATCH 1/1] vbscript: add support for redim byref

[Marvin]

Hi,

It looks like your patch introduced the new failures shown below.
Please investigate and fix them before resubmitting your patch.
If they are not new, fixing them anyway would help a lot. Otherwise
please ask for the known failures list to be updated.

The tests also ran into some preexisting test failures. If you know how
to fix them that would be helpful. See the TestBot job for the details:

The full results can be found at:
https://testbot.winehq.org/JobDetails.pl?Key=126628

Your paranoid android.

=== w7u_2qxl (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w7u_adm (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w7u_el (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w8 (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w8adm (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w864 (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w1064v1507 (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w1064v1809 (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w1064_tsign (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w10pro64 (32 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w864 (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w1064v1507 (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w1064v1809 (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w1064_2qxl (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w1064_adm (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w1064_tsign (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w10pro64 (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w10pro64_en_AE_u8 (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a
run.c:1206: Test failed: api.vbs: L"Err.number = 0"
run.c:1206: Test failed: api.vbs: L"Err.description = "
run.c:1206: Test failed: api.vbs: L"Err.number = 0"

=== w10pro64_ar (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w10pro64_ja (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

=== w10pro64_zh_CN (64 bit report) ===

vbscript:
run.c:1941: Test failed: unexpected call OnScriptError
run.c:1941: Test failed: unexpected call OnScriptError
run.c:3113: Test failed: expected global_success_d
run.c:3114: Test failed: expected global_success_i
run.c:3116: Test failed: parse_script failed: 800a000a

[PATCH 0/1] MR1495: vbscript: Add support for redim byref.

[Bernhard Kölbl (＠besentv)]

Just as a side note, because I saw this on your last MR as well: Your commit message doesn't match the common format of starting with an uppercase letter and ending with a dot. :slight_smile:

[PATCH 0/1] MR1495: vbscript: Add support for redim byref.

[Jason Millard (＠jsm174)]

Thanks. Sorry about that. Do I need to force push a new commit with the fixed name as well?