oleaut32: Copy BYREF args directly if they have the same variant type.

0e5bd51d · James Hawkins · Alexandre Julliard · 1660c504 · 0e5bd51d
Commit 0e5bd51d authored Jun 05, 2006 by James Hawkins Committed by Alexandre Julliard Jun 06, 2006
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

typelib.c dlls/oleaut32/typelib.c +5 -0

No files found.
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -5264,6 +5264,11 @@ static HRESULT WINAPI ITypeInfo_fnInvoke(
                        V_BYREF(&rgvarg[i]) = &V_NONE(&missing_arg[i]);
                        V_VT(&rgvarg[i]) = rgvt[i];
                    }
+                    else if ((rgvt[i] & VT_BYREF) && (rgvt[i] == V_VT(src_arg)))
+                    {
+                        V_BYREF(&rgvarg[i]) = V_BYREF(src_arg);
+                        V_VT(&rgvarg[i]) = rgvt[i];
+                    }
                    else
                    {
                        /* FIXME: this doesn't work for VT_BYREF arguments if