oleaut32: Improve ITypeInfo2 GetRefTypeOfImplType implementation.

926d3a88 · Piotr Caban · Alexandre Julliard · 15956152 · 926d3a88
Commit 926d3a88 authored Mar 17, 2010 by Piotr Caban Committed by Alexandre Julliard Mar 18, 2010
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 5 deletions

typelib2.c dlls/oleaut32/typelib2.c +6 -5

No files found.
--- a/dlls/oleaut32/typelib2.c
+++ b/dlls/oleaut32/typelib2.c
@@ -3016,17 +3016,18 @@ static HRESULT WINAPI ITypeInfo2_fnGetRefTypeOfImplType(
    if(!pRefType)
        return E_INVALIDARG;

-    if(index == -1) {
-        if((This->typeinfo->typekind&0xf)==TKIND_DISPATCH
-                && (This->typeinfo->flags&TYPEFLAG_FDUAL)) {
+    if(This->typeinfo->flags&TYPEFLAG_FDUAL) {
+        if(index == -1) {
            *pRefType = -2;
            return S_OK;
        }

-        return TYPE_E_ELEMENTNOTFOUND;
+        if(This->typekind == TKIND_DISPATCH)
+            return ITypeInfo2_GetRefTypeOfImplType((ITypeInfo2*)&This->dual->lpVtblTypeInfo2,
+                    index, pRefType);
    }

-    if(index >= This->typeinfo->cImplTypes)
+    if(index>=This->typeinfo->cImplTypes)
        return TYPE_E_ELEMENTNOTFOUND;

    if(This->typekind == TKIND_INTERFACE) {