[PATCH] ole2disp (oleaut32): Implement VARIANTINIT

[Detlef Riekenberg]

---
 dlls/oleaut32/ole2disp.c    |   21 +++++++++++++++++++++
 dlls/oleaut32/ole2disp.spec |    2 +-
 2 files changed, 22 insertions(+), 1 deletions(-)

diff --git a/dlls/oleaut32/ole2disp.c b/dlls/oleaut32/ole2disp.c
index a09ef7c..fb85fea 100644
--- a/dlls/oleaut32/ole2disp.c
+++ b/dlls/oleaut32/ole2disp.c
@@ -213,6 +213,27 @@ int WINAPI SysStringLen16(BSTR16 str)
 }
 
 /******************************************************************************
+ * VariantInit [OLE2DISP.8]
+ *
+ * Initialize a variant.
+ *
+ * PARAMS
+ *  pVarg [O] Variant to initialize
+ *
+ * RETURNS
+ *  Nothing.
+ *
+ * NOTES
+ *  This function simply sets the type of the variant to VT_EMPTY. It does not
+ *  free any existing value, use VariantClear() for that.
+ */
+void WINAPI VariantInit16(VARIANTARG* pVarg)
+{
+    TRACE("(%p)\n", pVarg);
+    V_VT(pVarg) = VT_EMPTY;
+}
+
+/******************************************************************************
  * CreateDispTypeInfo [OLE2DISP.31]
  */
 HRESULT WINAPI CreateDispTypeInfo16(
diff --git a/dlls/oleaut32/ole2disp.spec b/dlls/oleaut32/ole2disp.spec
index 2f9e2ef..b461a5c 100644
--- a/dlls/oleaut32/ole2disp.spec
+++ b/dlls/oleaut32/ole2disp.spec
@@ -5,7 +5,7 @@
 5 pascal SysReAllocStringLen(ptr str word) SysReAllocStringLen16
 6 pascal SysFreeString(segstr)		SysFreeString16
 7 pascal SysStringLen(segstr)		SysStringLen16
-8 stub VARIANTINIT
+8 pascal VARIANTINIT(ptr) VariantInit16
 9 stub VARIANTCLEAR
 10 stub VARIANTCOPY
 11 stub VARIANTCOPYIND
-- 
1.5.4.3


--=-R0xuY1x9Hc7HF/F00Sjp--