Piotr Caban : oleaut32: Store typeinfo hreftype while saving typelib.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 00d132ee155f84e344193ce6f7e4401f2f041fc3
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=00d132ee155f84e344193ce6f7...

Author: Piotr Caban 
Date:   Sun Jul 28 10:05:39 2013 +0200

oleaut32: Store typeinfo hreftype while saving typelib.

---

dlls/oleaut32/typelib.c |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c
index f566196..1041e1b 100644
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -9409,10 +9409,14 @@ static DWORD WMSFT_compile_typeinfo(ITypeInfoImpl *info, INT16 index, WMSFT_TLBF
         else
             base->posguid = -1;
         base->flags = info->wTypeFlags;
-        if(info->Name)
+        if(info->Name) {
             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->version = (info->wMinorVerNum << 16) | info->wMajorVerNum;
         if(info->DocString)
             base->docstringoffs = info->DocString->offset;