Support for recording the SYSKIND of the type library.

This commit is contained in:
Alastair Bridgewater 2004-02-09 20:48:34 +00:00 committed by Alexandre Julliard
parent 13081af50a
commit 3c06c308f0
1 changed files with 3 additions and 1 deletions

View File

@ -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...