[PATCH] ole2disp (oleaut32): Implement VARIANTCOPY
Detlef Riekenberg
wine.dev at web.de
Wed Aug 27 17:01:05 CDT 2008
---
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--
More information about the wine-patches
mailing list