oleaut32: Run LayOut on typeinfos that require it before saving.

341ff65b · Andrew Eikum · Alexandre Julliard · f66523ab · 341ff65b
Commit 341ff65b authored Aug 16, 2013 by Andrew Eikum Committed by Alexandre Julliard Aug 19, 2013
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
@@ -9689,9 +9689,14 @@ static HRESULT WINAPI ICreateTypeLib2_fnSaveAllChanges(ICreateTypeLib2 *iface)
    HANDLE outfile;
    HRESULT hres;
    DWORD *junk;
+    UINT i;

    TRACE("%p\n", This);

+    for(i = 0; i < This->TypeInfoCount; ++i)
+        if(This->typeinfos[i]->needs_layout)
+            ICreateTypeInfo2_LayOut(&This->typeinfos[i]->ICreateTypeInfo2_iface);
+
    memset(&file, 0, sizeof(file));

    file.header.magic1 = 0x5446534D;