[Bug 53866] New: vbscript fails to handle SAFEARRAY in for...each

[WineHQ Bugzilla]

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

Bug ID: 53866
           Summary: vbscript fails to handle SAFEARRAY in for...each
           Product: Wine
           Version: 7.20
          Hardware: x86-64
                OS: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: vbscript
          Assignee: [e-mail]
          Reporter: [e-mail]
      Distribution: ---

The following vbscript fails:

dim allBalls = getballs

for each b in allballs
   if b.id >= HighestID then highestID = b.id
Next

getballs returns a SAFEARRAY

In interp_newenum, I was able to get SAFEARRAY to work by adding the additional
case:

case VT_SAFEARRAY:
    case VT_VARIANT|VT_ARRAY:
    case VT_VARIANT|VT_ARRAY|VT_BYREF: {
        IEnumVARIANT *iter;

hres = create_safearray_iter(V_ISBYREF(v.v) ? *V_ARRAYREF(v.v) :
V_ARRAY(v.v), &iter);
    . 
    .
    .

[Bug 53866] vbscript fails to handle SAFEARRAY in for...each

[WineHQ Bugzilla]

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

Nikolay Sivov  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
         Resolution|---                         |INVALID
             Status|UNCONFIRMED                 |RESOLVED

--- Comment #1 from Nikolay Sivov  ---
Marking invalid as per https://bugs.winehq.org/show_bug.cgi?id=53766#c8.

[Bug 53866] vbscript fails to handle SAFEARRAY in for...each

[WineHQ Bugzilla]

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

Gijs Vermeulen  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |CLOSED

--- Comment #2 from Gijs Vermeulen  ---
Closing INVALID.