Skip to content

W
wine-cw
Commit 7857219a authored by Huw Davies's avatar Huw Davies Committed by Alexandre Julliard
Browse files
Options

widl: Fix typelib lcid fields to match those produced by midl.

parent c98ce23f
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 2 deletions
tools/widl/write_msft.c
View file @ 7857219a
......@@ -141,7 +141,7 @@ static void ctl2_init_header(
typelib->typelib_header.magic1 = 0x5446534d;
typelib->typelib_header.magic2 = 0x00010002;
typelib->typelib_header.posguid = -1;
typelib->typelib_header.lcid = 0x0409; /* or do we use the current one? */
typelib->typelib_header.lcid = 0x0409;
typelib->typelib_header.lcid2 = 0x0;
typelib->typelib_header.varflags = 0x40;
typelib->typelib_header.version = 0;
......@@ -2362,7 +2362,11 @@ static void set_help_string_context(msft_typelib_t *typelib)
static void set_lcid(msft_typelib_t *typelib)
{
const expr_t *lcid_expr = get_attrp( typelib->typelib->attrs, ATTR_LIBLCID );
typelib->typelib_header.lcid2 = lcid_expr ? lcid_expr->cval : 0x0;
if(lcid_expr)
{
typelib->typelib_header.lcid = lcid_expr->cval;
typelib->typelib_header.lcid2 = lcid_expr->cval;
}
}
static void set_lib_flags(msft_typelib_t *typelib)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment