oleaut32: Added SAFEARRAY support for RecordInfo::RecordClear

[Nikolay Sivov]

Changelog:
    - added SAFEARRAY support for RecordInfo::RecordClear
      Magic MP3 Tagger uses this on cleaning during exit (bug 6071)

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

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

diff --git a/dlls/oleaut32/recinfo.c b/dlls/oleaut32/recinfo.c
index 8fdf85a..19ae217 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;
-- 
1.4.4.4