Commit d2225219 authored by Jacek Caban's avatar Jacek Caban Committed by Alexandre Julliard

vbscript: Added support for VT_BYREF|VT_VARIANT to to_int.

parent ddcd19cf
......@@ -152,6 +152,9 @@ static inline HRESULT return_date(VARIANT *res, double date)
HRESULT to_int(VARIANT *v, int *ret)
{
if(V_VT(v) == (VT_BYREF|VT_VARIANT))
v = V_VARIANTREF(v);
switch(V_VT(v)) {
case VT_I2:
*ret = V_I2(v);
......
......@@ -964,7 +964,6 @@ Class Property2
Function Property()
End Function
Sub Test(property)
End Sub
......@@ -1042,4 +1041,7 @@ for x=1 to 1
forarr(1) = x+1
next
x=1
Call ok(forarr(x) = 2, "forarr(x) = " & forarr(x))
reportSuccess()
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment