From f5e59b43f706cbef1f5723233240c1e9a841cc5b Mon Sep 17 00:00:00 2001
From: Nikolay Sivov <bunglehead@gmail.com>
Date: Sun, 7 Dec 2008 14:43:25 +0300
Subject: [PATCH] oleaut32: Added SAFEARRAY support for
 RecordInfo::RecordClear.

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

diff --git a/dlls/oleaut32/recinfo.c b/dlls/oleaut32/recinfo.c
index 8fdf85aed12..19ae217cb94 100644
--- a/dlls/oleaut32/recinfo.c
+++ b/dlls/oleaut32/recinfo.c
@@ -236,6 +236,9 @@ static HRESULT WINAPI IRecordInfoImpl_RecordClear(IRecordInfo *iface, PVOID pvEx
             case VT_UINT_PTR:
                 *(void**)var = NULL;
                 break;
+            case VT_SAFEARRAY:
+                SafeArrayDestroy((SAFEARRAY*)var);
+                break;
             default:
                 FIXME("Not supported vt = %d\n", This->fields[i].vt);
                 break;