oleaut32: Free guid_list in ITypeLib2_Release.

This commit is contained in:
Piotr Caban 2013-07-30 15:19:54 +02:00 committed by Alexandre Julliard
parent 6d6c3e5d81
commit 1967b35962
1 changed files with 6 additions and 0 deletions

View File

@ -4577,6 +4577,7 @@ static ULONG WINAPI ITypeLib2_fnRelease( ITypeLib2 *iface)
TLBImpLib *pImpLib, *pImpLibNext; TLBImpLib *pImpLib, *pImpLibNext;
TLBRefType *ref_type; TLBRefType *ref_type;
TLBString *tlbstr, *tlbstr_next; TLBString *tlbstr, *tlbstr_next;
TLBGuid *tlbguid, *tlbguid_next;
void *cursor2; void *cursor2;
int i; int i;
@ -4604,6 +4605,11 @@ static ULONG WINAPI ITypeLib2_fnRelease( ITypeLib2 *iface)
heap_free(tlbstr); 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); TLB_FreeCustData(&This->custdata_list);
for (i = 0; i < This->ctTypeDesc; i++) for (i = 0; i < This->ctTypeDesc; i++)