Piotr Caban : oleaut32: Free guid_list in ITypeLib2_Release.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 1967b35962ea0c2476da8986404c8d8f45eda0b9
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=1967b35962ea0c2476da898640...

Author: Piotr Caban 
Date:   Tue Jul 30 15:19:54 2013 +0200

oleaut32: Free guid_list in ITypeLib2_Release.

---

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

diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c
index b0cfc88..44eea5b 100644
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -4577,6 +4577,7 @@ static ULONG WINAPI ITypeLib2_fnRelease( ITypeLib2 *iface)
       TLBImpLib *pImpLib, *pImpLibNext;
       TLBRefType *ref_type;
       TLBString *tlbstr, *tlbstr_next;
+      TLBGuid *tlbguid, *tlbguid_next;
       void *cursor2;
       int i;

@@ -4604,6 +4605,11 @@ static ULONG WINAPI ITypeLib2_fnRelease( ITypeLib2 *iface)
           heap_free(tlbstr);
       }

+      LIST_FOR_EACH_ENTRY_SAFE(tlbguid, tlbguid_next, &This->guid_list, TLBGuid, entry) {
+          list_remove(&tlbguid->entry);
+          heap_free(tlbguid);
+      }
+
       TLB_FreeCustData(&This->custdata_list);

for (i = 0; i < This->ctTypeDesc; i++)