Implement coercion to VT_UNKNOWN from VT_DISPATCH.

54c8fee9 · Ove Kaaven · Alexandre Julliard · 77f8e5fe · 54c8fee9
Commit 54c8fee9 authored Oct 04, 2001 by Ove Kaaven Committed by Alexandre Julliard Oct 04, 2001
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 0 deletions

variant.c dlls/oleaut32/variant.c +12 -0

No files found.
--- a/dlls/oleaut32/variant.c
+++ b/dlls/oleaut32/variant.c
@@ -1567,6 +1567,18 @@ static HRESULT Coerce( VARIANTARG* pd, LCID lcid, ULONG dwFlags, VARIANTARG* ps,
 	  }
 	break;

+	case( VT_UNKNOWN ):
+	    if (vtFrom == VT_DISPATCH)
+	    {
+		res = IDispatch_QueryInterface(V_DISPATCH(ps), &IID_IUnknown, (LPVOID*)&V_UNKNOWN(pd));
+	    }
+	    else
+	    {
+		res = DISP_E_TYPEMISMATCH;
+		FIXME("Coercion from %d to %d\n", vtFrom, vt );
+	    }
+	    break;
+
 	default:
 		res = DISP_E_TYPEMISMATCH;
 		FIXME("Coercion from %d to %d\n", vtFrom, vt );