oleaut: Process references for SLTG dispatch types.

92b468e8 · Robert Shearman · Alexandre Julliard · e4188e88 · 92b468e8
Commit 92b468e8 authored Jul 03, 2006 by Robert Shearman Committed by Alexandre Julliard Jul 05, 2006
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

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

No files found.
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -3057,10 +3057,14 @@ static void SLTG_ProcessDispatch(char *pBlk, ITypeInfoImpl *pTI,
 				 char *pNameTable, SLTG_TypeInfoHeader *pTIHeader,
 				 SLTG_TypeInfoTail *pTITail)
 {
+  if (pTIHeader->href_table != 0xffffffff)
+      SLTG_DoRefs((SLTG_RefInfo*)((char *)pTIHeader + pTIHeader->href_table), pTI,
+                                  pNameTable);
+
  if (pTITail->vars_off != 0xffff)
    SLTG_DoVars(pBlk + pTITail->vars_off, pTI, pTITail->cVars, pNameTable);

-  FIXME_(typelib)("process refs and funcs\n");
+  FIXME_(typelib)("process funcs\n");
 }

 static void SLTG_ProcessEnum(char *pBlk, ITypeInfoImpl *pTI,