From 3c06c308f0fe332fd6ae66d2f3c0f28a1fa688a9 Mon Sep 17 00:00:00 2001
From: Alastair Bridgewater <nyef@softhome.net>
Date: Mon, 9 Feb 2004 20:48:34 +0000
Subject: [PATCH] Support for recording the SYSKIND of the type library.

---
 dlls/oleaut32/typelib2.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/dlls/oleaut32/typelib2.c b/dlls/oleaut32/typelib2.c
index c6648e7c12d..02ac7fe6d2e 100644
--- a/dlls/oleaut32/typelib2.c
+++ b/dlls/oleaut32/typelib2.c
@@ -181,7 +181,7 @@ static void ctl2_init_header(
     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 @@ static ICreateTypeLib2 *ICreateTypeLib2_Constructor(SYSKIND syskind, LPCOLESTR s
     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...