ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dlls/oleaut32/typelib2.c
View File

@ -181,7 +181,7 @@ static void ctl2_init_header(
This->typelib_header.posguid = -1; This->typelib_header.posguid = -1;
This->typelib_header.lcid = 0x0409; /* or do we use the current one? */ This->typelib_header.lcid = 0x0409; /* or do we use the current one? */
This->typelib_header.lcid2 = 0x0409; This->typelib_header.lcid2 = 0x0409;
This->typelib_header.varflags = 0x41; This->typelib_header.varflags = 0x40;
This->typelib_header.version = 0; This->typelib_header.version = 0;
This->typelib_header.flags = 0; This->typelib_header.flags = 0;
This->typelib_header.nrtypeinfos = 0; This->typelib_header.nrtypeinfos = 0;
@ -3098,6 +3098,8 @@ static ICreateTypeLib2 *ICreateTypeLib2_Constructor(SYSKIND syskind, LPCOLESTR s
ctl2_init_header(pCreateTypeLib2Impl); ctl2_init_header(pCreateTypeLib2Impl);
ctl2_init_segdir(pCreateTypeLib2Impl); ctl2_init_segdir(pCreateTypeLib2Impl);
pCreateTypeLib2Impl->typelib_header.varflags |= syskind;
/* /*
* The following two calls return an offset or -1 if out of memory. We * The following two calls return an offset or -1 if out of memory. We
* specifically need an offset of 0, however, so... * specifically need an offset of 0, however, so...