From dda741e4569e604108524c8a195175d0d5e9a009 Mon Sep 17 00:00:00 2001
From: Jacek Caban <jacek@codeweavers.com>
Date: Wed, 23 Apr 2008 17:09:43 +0200
Subject: [PATCH] oleaut32: Clear record in RecordDestroy.

---
 dlls/oleaut32/recinfo.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/dlls/oleaut32/recinfo.c b/dlls/oleaut32/recinfo.c
index 3576e1b2b30..5b58fc6e76a 100644
--- a/dlls/oleaut32/recinfo.c
+++ b/dlls/oleaut32/recinfo.c
@@ -466,9 +466,14 @@ static HRESULT WINAPI IRecordInfoImpl_RecordCreateCopy(IRecordInfo *iface, PVOID
 static HRESULT WINAPI IRecordInfoImpl_RecordDestroy(IRecordInfo *iface, PVOID pvRecord)
 {
     IRecordInfoImpl *This = (IRecordInfoImpl*)iface;
+    HRESULT hres;
 
     TRACE("(%p)->(%p)\n", This, pvRecord);
 
+    hres = IRecordInfo_RecordClear(iface, pvRecord);
+    if(FAILED(hres))
+        return hres;
+
     if(!HeapFree(GetProcessHeap(), 0, pvRecord))
         return E_INVALIDARG;