Austin English : ole2disp: Add a stub for VariantChangeTypeEx.

[Alexandre Julliard]

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

Author: Austin English <austinenglish at gmail.com>
Date:   Fri Nov 28 14:58:26 2014 -0600

ole2disp: Add a stub for VariantChangeTypeEx.

---

 dlls/ole2disp.dll16/ole2disp.c          | 9 +++++++++
 dlls/ole2disp.dll16/ole2disp.dll16.spec | 4 ++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/dlls/ole2disp.dll16/ole2disp.c b/dlls/ole2disp.dll16/ole2disp.c
index 61a4043..1850346 100644
--- a/dlls/ole2disp.dll16/ole2disp.c
+++ b/dlls/ole2disp.dll16/ole2disp.c
@@ -260,6 +260,15 @@ HRESULT WINAPI RegisterActiveObject16(
 }
 
 /******************************************************************************
+ * VariantChangeTypeEx [OLE2DISP.108]
+ */
+HRESULT WINAPI VariantChangeTypeEx16(VARIANTARG *dest, const VARIANTARG *src, LCID lcid, USHORT flags, VARTYPE vt)
+{
+        FIXME("stub: %p %p %d %d %d\n", dest, src, lcid, flags, vt);
+        return E_INVALIDARG;
+}
+
+/******************************************************************************
  * SetErrorInfo [OLE2DISP.110]
  */
 HRESULT WINAPI SetErrorInfo16(ULONG dwReserved, IErrorInfo *perrinfo)
diff --git a/dlls/ole2disp.dll16/ole2disp.dll16.spec b/dlls/ole2disp.dll16/ole2disp.dll16.spec
index c027d12..2cf6784 100644
--- a/dlls/ole2disp.dll16/ole2disp.dll16.spec
+++ b/dlls/ole2disp.dll16/ole2disp.dll16.spec
@@ -9,7 +9,7 @@
 9 stub VARIANTCLEAR
 10 stub VARIANTCOPY
 11 stub VARIANTCOPYIND
-12 pascal VARIANTCHANGETYPE(ptr ptr long long) VariantChangeType16
+12 pascal VariantChangeType(ptr ptr word word) VariantChangeType16
 13 stub VARIANTTIMETODOSDATETIME
 14 stub DOSDATETIMETOVARIANTTIME
 15 stub SAFEARRAYCREATE
@@ -105,7 +105,7 @@
 105 stub VARBOOLFROMSTR
 106 stub VARBOOLFROMDISP
 107 stub DOINVOKEMETHOD
-108 stub VARIANTCHANGETYPEEX
+108 pascal VariantChangeTypeEx(ptr ptr long word word) VariantChangeTypeEx16
 109 stub SAFEARRAYPTROFINDEX
 110 pascal SetErrorInfo(long ptr) SetErrorInfo16
 111 stub GETERRORINFO