oleaut32: When loading typelibs, skip over function default parameters as well.

09d787d2 · Andrew Eikum · Alexandre Julliard · af3ae0c4 · 09d787d2
Commit 09d787d2 authored Jun 04, 2013 by Andrew Eikum Committed by Alexandre Julliard Jun 04, 2013
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

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

No files found.
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -2310,6 +2310,8 @@ MSFT_DoFuncs(TLBContext*     pcx,

        /* size without argument data */
        optional = reclength - pFuncRec->nrargs*sizeof(MSFT_ParameterInfo);
+        if (pFuncRec->FKCCIC & 0x1000)
+            optional -= pFuncRec->nrargs * sizeof(INT);

        if (optional > FIELD_OFFSET(MSFT_FuncRecord, HelpContext))
            ptfd->helpcontext = pFuncRec->HelpContext;