[PATCH] ole2disp (oleaut32): Implement VARIANTCOPY

[Detlef Riekenberg]

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

diff --git a/dlls/oleaut32/ole2disp.c b/dlls/oleaut32/ole2disp.c
index fb85fea..faebe14 100644
--- a/dlls/oleaut32/ole2disp.c
+++ b/dlls/oleaut32/ole2disp.c
@@ -234,6 +234,25 @@ void WINAPI VariantInit16(VARIANTARG* pVarg)
 }
 
 /******************************************************************************
+ * VariantCopy [OLE2DISP.10]
+ *
+ * Copy a variant.
+ *
+ * PARAMS
+ *  pvargDest [O] Destination for copy
+ *  pvargSrc  [I] Source variant to copy
+ *
+ * RETURNS
+ *  Success: S_OK. pvargDest contains a copy of pvargSrc.
+ *  Failure: A HRESULT failure code
+ */
+HRESULT WINAPI VariantCopy16(VARIANTARG* pvargDest, VARIANTARG* pvargSrc)
+{
+    TRACE("(%p, %p)\n", pvargDest, pvargSrc);
+    return VariantCopy(pvargDest, pvargSrc);
+}
+
+/******************************************************************************
  * CreateDispTypeInfo [OLE2DISP.31]
  */
 HRESULT WINAPI CreateDispTypeInfo16(
@@ -268,3 +287,4 @@ HRESULT WINAPI RegisterActiveObject16(
 	FIXME("(%p,%s,0x%08x,%p):stub\n",punk,debugstr_guid(rclsid),dwFlags,pdwRegister);
 	return E_NOTIMPL;
 }
+
diff --git a/dlls/oleaut32/ole2disp.spec b/dlls/oleaut32/ole2disp.spec
index b461a5c..1431510 100644
--- a/dlls/oleaut32/ole2disp.spec
+++ b/dlls/oleaut32/ole2disp.spec
@@ -7,7 +7,7 @@
 7 pascal SysStringLen(segstr)		SysStringLen16
 8 pascal VARIANTINIT(ptr) VariantInit16
 9 stub VARIANTCLEAR
-10 stub VARIANTCOPY
+10 pascal VARIANTCOPY(ptr ptr) VariantCopy16
 11 stub VARIANTCOPYIND
 12 stub VARIANTCHANGETYPE
 13 stub VARIANTTIMETODOSDATETIME
-- 
1.5.4.3


--=-XYZuHKL8I3KvInziUfJo--