Handle VT_PTR->VT_VARIANT arguments of Invoke.

84213a37 · Marcus Meissner · Alexandre Julliard · cdfcef24 · 84213a37
Commit 84213a37 authored Mar 04, 2003 by Marcus Meissner Committed by Alexandre Julliard Mar 04, 2003
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
@@ -4214,6 +4214,11 @@ _copy_arg(	ITypeInfo2 *tinfo, TYPEDESC *tdesc,
    UINT arglen = _argsize(vt)*sizeof(DWORD);
    VARTYPE	oldvt;

+    if ((vt==VT_PTR) && tdesc && (tdesc->u.lptdesc->vt == VT_VARIANT)) {
+	memcpy(argpos,&arg,sizeof(void*));
+	return S_OK;
+    }
+
    if (V_VT(arg) == vt) {
 	memcpy(argpos, &V_UNION(arg,lVal), arglen);
 	return S_OK;