From 00d132ee155f84e344193ce6f7e4401f2f041fc3 Mon Sep 17 00:00:00 2001
From: Piotr Caban <piotr@codeweavers.com>
Date: Sun, 28 Jul 2013 10:05:39 +0200
Subject: [PATCH] oleaut32: Store typeinfo hreftype while saving typelib.

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

diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c
index f566196b5e3..1041e1b37cd 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;