Skip to content

W
wine-winehq
Commit 00d132ee authored by Piotr Caban's avatar Piotr Caban Committed by Alexandre Julliard
Browse files
Options

oleaut32: Store typeinfo hreftype while saving typelib.

parent f9e73f97
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 2 deletions
dlls/oleaut32/typelib.c
View file @ 00d132ee
...@@ -9409,10 +9409,14 @@ static DWORD WMSFT_compile_typeinfo(ITypeInfoImpl *info, INT16 index, WMSFT_TLBF ...@@ -9409,10 +9409,14 @@ static DWORD WMSFT_compile_typeinfo(ITypeInfoImpl *info, INT16 index, WMSFT_TLBF
else else
base->posguid = -1; base->posguid = -1;
base->flags = info->wTypeFlags; base->flags = info->wTypeFlags;
if(info->Name) if(info->Name) {
base->NameOffset = info->Name->offset; base->NameOffset = info->Name->offset;
else
((unsigned char*)file->name_seg.data)[info->Name->offset+9] = 0x38;
*(HREFTYPE*)((unsigned char*)file->name_seg.data+info->Name->offset) = info->hreftype;
}else {
base->NameOffset = -1; base->NameOffset = -1;
}
base->version = (info->wMinorVerNum << 16) | info->wMajorVerNum; base->version = (info->wMinorVerNum << 16) | info->wMajorVerNum;
if(info->DocString) if(info->DocString)
base->docstringoffs = info->DocString->offset; base->docstringoffs = info->DocString->offset;
......
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