commit 3c06c308f0fe332fd6ae66d2f3c0f28a1fa688a9
author Alastair Bridgewater <nyef@softhome.net> Mon Feb 09 20:48:34 2004 +0000
committer Alexandre Julliard <julliard@winehq.org> Mon Feb 09 20:48:34 2004 +0000
tree 3c01a7c4233cb879c4b4719c8dd5ee93e3a13629
parent 13081af50aa49507a8ff26feeff38cd10a6bdcc0

Support for recording the SYSKIND of the type library.

dlls/oleaut32/typelib2.c

diff --git a/dlls/oleaut32/typelib2.c b/dlls/oleaut32/typelib2.c
index c6648e7..02ac7fe 100644
--- a/dlls/oleaut32/typelib2.c
+++ b/dlls/oleaut32/typelib2.c
@@ -181,7 +181,7 @@
     This->typelib_header.posguid = -1;
     This->typelib_header.lcid = 0x0409; /* or do we use the current one? */
     This->typelib_header.lcid2 = 0x0409;
-    This->typelib_header.varflags = 0x41;
+    This->typelib_header.varflags = 0x40;
     This->typelib_header.version = 0;
     This->typelib_header.flags = 0;
     This->typelib_header.nrtypeinfos = 0;
@@ -3098,6 +3098,8 @@
     ctl2_init_header(pCreateTypeLib2Impl);
     ctl2_init_segdir(pCreateTypeLib2Impl);
 
+    pCreateTypeLib2Impl->typelib_header.varflags |= syskind;
+
     /*
      * The following two calls return an offset or -1 if out of memory. We
      * specifically need an offset of 0, however, so...