Nikolay Sivov : oleaut32: Added SAFEARRAY support for RecordInfo:: RecordClear.

[Alexandre Julliard]

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

Author: Nikolay Sivov <bunglehead(a)gmail.com>
Date:   Sun Dec  7 14:43:25 2008 +0300

oleaut32: 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;